請教LISP內REFEDIT的問題

yenbl · 发表于 2010-5-17 14:12

不知是那裡錯,無法執行

我要把圖塊內的LINE都刪除

拜託...謝謝...

(setq aaa (ssget "x" (list (cons 0 "insert"))))
(setq lis (sslength aaa))
(setq i 0)
(repeat lis
   (setq ename (ssname aaa i))
   (command "refedit" ename "o" "" "")
   (command "erase" (ssget "x" (list (cons 0 "line"))) "")
   (command "refclose" "s")
   (setq i (+ 1 i))
)

caoyin · 发表于 2010-5-17 14:54

;;删除块内直线
(defun c:bbb (/ Blocks)
(setq Blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for block blocks
(if (= (vla-get-IsLayout block) :vlax-FALSE)
(vlax-for object block
(and (= (vla-get-objectname object) "AcDbLine")
(vla-delete object))
)
)
)
)

yenbl · 发表于 2010-5-17 17:48

謝謝...謝謝...

看了大哥您寫的程式

我還要好好努力

我在台灣,聽說兩岸有些稱呼不太一樣

稱您大哥應該不會失禮吧(在我們這邊是尊敬的表達)

我在LISP書上好像沒看到您所用的語法

是LISP嗎?

yenbl · 发表于 2010-5-17 17:56

我的AUTOCAD是2005

剛剛我試執行好像有問題

; 錯誤: no function definition: VLAX-GET-ACAD-OBJECT

不知是什麼問題

mccad · 发表于 2010-5-17 18:12

请先使用(vl-load-com)函数以加载这些函数。这属于Visual LISP范畴。

caoyin · 发表于 2010-5-18 14:07

[quote]yenbl发表于2010-5-17 17:48:00

謝謝...謝謝...看了大哥您寫的程式我還要好好努力我在台灣,聽說兩岸有些稱呼不太一樣稱您大哥應該不會失禮吧(在我們這邊是尊敬的表達)我在LISP書上好像

yenbl · 发表于 2010-5-22 12:30

大哥我不會加載(vl-load-com)函数

可以告訴我程式碼怎麼寫嗎?

拜託...拜託...

caoyin · 发表于 2010-5-22 12:53

;;删除块内直线
(defun c:bbb (/ Blocks)
(vl-load-com)
(setq Blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for block blocks
(if (= (vla-get-IsLayout block) :vlax-FALSE)
(vlax-for object block
(and (= (vla-get-objectname object) "AcDbLine")
(vla-delete object))
)
)
)
)

怪了！！！

yenbl · 发表于 2010-5-22 13:44

謝謝...

账号		自动登录	找回密码
密码			注册

[基础] 請教LISP內REFEDIT的問題

我的AUTOCAD是2005

我不會加載(vl-load-com)函数...

謝謝...