( Hỏi ) Lips ) code thực hiện lệnh trên 2 file cad ?

[( Hỏi ) Lips ) code thực hiện lệnh trên 2 file cad ?]

Theo mình thì lisp thì có thể mở bản vẽ thứ 2 được nhưng thực hiện lệnh lisp trên 2 hay nhiều file cad thì bạn phải kết hợp với Script nữa mới được

Hi vọng giúp được bạn!

[(Yêu Cầu) lisp copy nội dung text trong một loạt dimenson...]

Lọc xong rồi làm gì nữa bạn???

Bạn phải ghi rõ yêu cầu để các anh chị khác hình dung được và khi đó mới giúp đỡ bạn được chứ

Theo yêu cầu của bạn thì chỉ cần lấy cặp (assoc 42 ) của đối tượng Dimension là được

[Nhờ viết lisp gộp Dimension và Text style]

Mình nghĩ cái này đâu cần phải dùng Lisp đâu bạn

• Đầu tiên bạn chon tất cả Dim or Text --> Bằng lệnh selectsimilar or Fi
• Rồi Chọn Dimstyle or Textstyle (trên thanh Taskbar cần chuyển đến  là xong mà
• Muốn xóa thì Pu--> All là xóa tất cả cái không dùng trên bản vẽ

Hi vọng giúp được bạn!

[Thiết lập giá trị cho DIMSPACE]

Mình cũng mới tập tành lisp
hi vọng đúng ý bạn

(defun c:dsp (/ dbase dsp)
(redraw (setq dbase (car (entsel"\nSelect Base Dimension: "))) 3)
(setq dsp (ssget '((0 . "DIMENSION"))))
(command "dimspace" dbase dsp "" (* (getvar "dimtxt") 2))
(redraw dbase 4)
)

 

[Hỏi về Lisp (thuật toán, ý tưởng, coding,...)]

Chào các anh chị,

Em mới học Lisp,mong mọi người giúp đỡ nhiều ạ

Em có đoạn Code sau

(defun c:CM (/ *error* cla ent-last iferror k lay olderr os pause r ve vec);;;; tao cloud mark;
(setvar "modemacro" "CREATE CLOUD_MARK")
;;; (setvar "CMDECHO" 0)
(command "undo" "BE")
(defun iferror (msg)
(if (= cla nil)
(setq cla "3"))
(if cla (setvar "CLAYER" cla))
(if os (setvar "OSMODE" os))
(setvar "CMDECHO" 1)
(setq *error* olderr)
(princ)
)
(setq lay (tblsearch "layer" "Cloud mark"))
(if (= lay nil)
(command "_layer" "_n" "Cloud mark" "_c" "6" "Cloud mark" ""))
(setq olderr *error*)
(setq *error* iferror)
(graphscr)
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq cla (getvar "CLAYER"))
(setq r (* (getvar "DIMSCALE") 5))
(setq k T)
(while k
(terpri)
(if (= ve nil) (setq ve "Hinh chu nhat"))
(setq vec (strcat "\nVe hinh chu nhat hay duong line? <" ve ">: "))
(setq vec (getstring vec))
(if (= vec "")
(command "_.RECTANGLE")
(command "_.pline"))
(while (= 1 (getvar "cmdactive")) (command pause))
(setq ent-last (entlast))
(setvar "clayer" "Cloud mark")
(command "_.REVCLOUD" "_A" r r "_Object" ent-last "")
)
(setvar "CLAYER" cla)
(setq *error* olderr)
(setvar "OSMODE" os)
(command "undo" "End")
;;; (setvar "CMDECHO" 1)
(princ)
)

 

Code đây em sưu tầm về dung,không hiểu sao mấy hôm trước em dùng bình thường nhưng tự nhiên hôm nay em dùng lại bị lỗi ak

Em chạy từng dòng trong code thì oki nhưng chạy cả  lệnh thì lại bị lỗi ạ

Mong mọi người giải đáp giúp em

Chúc mọi người đầu tuần vui vẻ