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

vietduc147258

Thành viên
  • Số lượng nội dung

    156
  • Đã tham gia

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

  • Ngày trúng

    16

Cộng đồng

49 (tàm tạm)

4 Người theo dõi

About vietduc147258

  • Cấp bậc
    biết lệnh mirror

Khách truy cập Tiểu sử gần đây

5.029 chế độ xem tiểu sử
  1. vietduc147258

    Nhờ sửa Lisp chuyển Layer khi DIM

    Bạn thử cái này coi sao (setvar "DIMSCALE" 20) (command "-dimstyle" "_apply") nhược điểm là Dim hiện tại sẽ chuyển sang dimstyle hiện hành
  2. vietduc147258

    Nhờ sửa Lisp chuyển Layer khi DIM

    Bạn chịu khó đọc bình luận của những người khác nữa. DIMLAYER TEXTLAYER HPLAYER CENTERLAYER Lần lượt set layer cho Dim, text, Hatch, Centerline. Riêng Centerline có lẽ do mình dùng mechanical mới có. không biết bản khác có không. Cứ gõ lệnh rồi cad yêu cầu mình cái gì thì cung cấp cho họ cái đó. chắc không cần hướng dẫn đâu
  3. vietduc147258

    Nhờ sửa Lisp chuyển Layer khi DIM

    Em có lisp chuyển layer khi Dim. Nhưng khi Dim góc thì có 2 trường hợp chọn đối tượng line với trường hợp là chọn point. Với 2 lệnh tương ứng là DAN và DAN2. Các bác giúp em gộp 2 lệnh đó thành một với. Cảm ơn các bác đã quan tâm. (defun c:DLI ()(Command ".DIMLINEAR" pause pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ)) (defun c:DAl ()(Command ".DIMALIGNED" pause pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ)) (defun c:DDI ()(Command ".DIMDIAMETER" pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ)) (defun c:DRA ()(Command ".DIMRADIUS" pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ)) (defun c:DAR ()(Command ".DIMARC" pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ)) (defun c:DAN ()(Command ".DIMANGULAR" pause pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ)) (defun c:DAN2()(Command ".DIMANGULAR" "" pause pause pause pause) (command "._chprop" "L" "" "LA" "DIM" "") (princ)) ; Dim goc lon hon 180 do (Defun c:QD ()(Setvar "clayer" "DIM")(Prompt "\nChon doi tuong can Dim")(Setq ch (Ssget))(command "QDIM" ch "" Pause)(command "_LayerP")(Princ))
×