Chuyển đến nội dung
Diễn đàn CADViet

letuan0601

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    39

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi letuan0601

  3. Đã đăng · Trả lời báo cáo

    Vào lúc 26/2/2013 tại 11:09, KangKung đã nói:

     

    Lisp mới tạo viewport cho tất cả hình chữ nhật có cạnh nằm ngang, đứng, ... ngồi biggrin.png hoặc nghiêng. Sơ qua về các đặc điểm của Lisp này:

    1. Tạo viewport cho tất cả các khung hình chữ nhật

    2. Thêm lựa chọn Xref khung tên bản vẽ

    3. Các viewport được sắp xếp theo phương đứng thay vì phương ngang như các Lisp trước

    Bác nào có nhu cầu thì down về rồi test thử và cho ý kiến nhé.

    http://www.cadviet.com/upfiles/3/71162_mtl_rev5.lsp

    P/S: Lisp này sẽ giảm rất nhiều thao tác và thời gian cho những ai biên tập bản đồ khu vực rộng đặc biệt là bản đồ dạng tuyến. 

    @Nhoclangbat: Sẽ post Lisp theo yêu cầu của nhoc sau nhé.

    Mình muốn lisp này xuất ra từng layout riêng biệt, có đặt tên cho layout như rev1 thì sửa chỗ nào các bác? mong các bác chỉ giúp!

  5. Đã đăng · Trả lời báo cáo

    Mới tập tành Sheet set. Các pro cho mình hỏi. Nếu công trình của mình nhiều bản vẽ nhưng các nét vẽ không đồng nhất. Vậy khi in cả công trình nếu dùng 1 nét in thì sẽ không ổn! Vậy có cách nào set nét in cho từng bản vẽ xong rồi file tự ghi nhớ nét in được không. Để khi Publish thì file tự hiểu để in theo từng nét in đã setup từ trước!

  8. Đã đăng · Trả lời báo cáo

    Vào lúc 15/7/2016 tại 15:34, victor85 đã nói:

    Lisp đây bác ơi:

    ;;; Function: Lock/Unlock Viewports
    ;;; Command Line: LV
    ;;; Description: By locking the Display you ensure your
    ;;; model view will not accidentally shift
    ;;; if you activate the viewport
    ;;;
    ;;; Developed by Theodorus Winata
    ;;; April 2006
    ;;;

    (defun get-objects ()
    (setq DPL (vlax-ename->vla-object (ssname SSG CNT))
        CNT (1+ CNT)
    );;setq
    );;get-objects

    ;;;********** Error Handler **********
    (defun ERR (msg)
    (princ)
    );;ERR

    ;;;********** Main Program **********
    (defun C:LV (/ CME CNT DPL *ERROR* OP SSG)
    (vl-load-com)
    (setq *ERROR* ERR
    CME (getvar "CMDECHO")
    );;setq
    (setvar "CMDECHO" 0)
    (if (= (getvar "TILEMODE") 1) (setvar "TILEMODE" 0))
    (command "pspace")
    (setq SSG (ssget "X" (list (cons 0 "VIEWPORT")))
        CNT 0
    );;setq
    (initget "Yes No")
    (setq OP (getkword "Display locked [Yes/No] <Y>: "))
    (cond
    ((or (= OP nil) (= OP "Yes"))
    (repeat (sslength SSG)
    (get-objects)    
        (vla-put-DisplayLocked DPL :vlax-true)
    );;repeat
    (prompt "\n\tAll Viewports Locked...!")
    );;"Yes"
    ((= OP "No")
    (repeat (sslength SSG)
        (get-objects)
        (vla-put-DisplayLocked DPL :vlax-false)
    );;repeat
    (prompt "\n\tAll Viewports Unlocked...!")
    );;"No"
    );;cond
    (setvar "CMDECHO" CME)
    (princ)
    );;C:LV
    (princ
    (strcat
    " LV.LSP v1.0 (Copyright 2006 by "
    "\"Theo Winata and You\") loaded...!"
    )
    )
    (princ)

    Mình dùng Cad 2018. Load lisp cad nhận lệnh nhưng khi chon Y hoặc N thì khung nhìn không thay đổi chế độ khóa hoặc mở. Không biết do phiên bản 2018 hay lisp? Mong bạn giúp đỡ!

×