請教LISP內REFEDIT的問題

yenbl

不知是那裡錯,無法執行

我要把圖塊內的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

2. ;;删除块内直线
3. (defun c:bbb (/ Blocks)
4. (setq Blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
5. (vlax-for block blocks
6.   (if (= (vla-get-IsLayout block) :vlax-FALSE)
7.     (vlax-for object block
8.       (and (= (vla-get-objectname object) "AcDbLine")
9.            (vla-delete object))
10.     )
11.   )
12. )
13. )

;;删除块内直线 (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

謝謝...謝謝...

看了大哥您寫的程式

我還要好好努力

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

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

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

是LISP嗎?

yenbl

我的AUTOCAD是2005

剛剛我試執行好像有問題

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

不知是什麼問題

mccad

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

caoyin

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

yenbl

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

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

拜託...拜託...

caoyin

2. ;;删除块内直线
3. (defun c:bbb (/ Blocks)
4. (vl-load-com)
5. (setq Blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
6. (vlax-for block blocks
7. (if (= (vla-get-IsLayout block) :vlax-FALSE)
8.     (vlax-for object block
9.       (and (= (vla-get-objectname object) "AcDbLine")
10.            (vla-delete object))
11.     )
12.   )
13. )
14. )

;;删除块内直线 (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

謝謝...