1樓：冼睿敏
(defun c:ere ( )
(setq ss (ssget (list (cons 0 "point"))) li '() si 0 ei 0)
(repeat (sslength ss)
(setq cs (ssname ss si) si (1+ si) ce (entget cs))
(if (member (vl-princ-to-string (cdr (assoc 10 ce))) li)
(progn
(command "_.erase" cs "")
(setq ei (1+ ei))
)(setq li (cons (vl-princ-to-string (cdr (assoc 10 ce))) li))))
(princ (strcat "\n在選擇的" (itoa (sslength ss)) "個點中,刪除了" (itoa ei) "個重複的點!"))
(princ)
)上面的程式，我用的是repeat，用while也是一樣的效果。另外，迴圈裡面套迴圈個人覺得不太可取，若物件過多會運算很大。
2樓：甘曦之
不妨試試下面的**：
(defun c:ere()
(setq a (ssget (list(cons 0 "point"))))
(setq i (sslength a))(setq j (1- i))
(while (> j -1)
(setq b (ssname a j))(setq c (entget b))
(if (/= c nil)
(progn
(setq zb(cdr (assoc 10 c)))(setq cfdj(ssget "x" (list (cons 10 zb)(cons 0 "point"))))
(if (/= cfdj nil)(progn(setq cfdj(ssdel b cfdj))(command "erase" cfdj "")))))
(setq j(1- j))))
3樓：
可以用(repeat (sslength i)
.................)試試，用while迴圈i值沒有在迴圈體中修正啊，這樣不成死迴圈了。。
4樓：匿名使用者
請問朋友是否有刪除重複線的lisp命令
5樓：匿名使用者
fgrdtgrrfg
大俠你好，為什麼我的cad在載入完一個autolisp程式後（已經顯示載入成功），但是執行該程式時打不開
6樓：匿名使用者
問過於簡章，函式定義如沒有以c:開頭就不行哈，類似於要這樣:defun c:tmp()
才能在cad中命令列中調入
7樓：
名字為tmp的lsp，內部定義的命令不一定就是tmp，你載入完後有沒有提示讓你輸入什麼命令，如果有的話，按提示輸入。如果沒有，你懂點lsp的話，可以用記事本開啟看一下，自己不清楚的話，問一下給你程式的人。
8樓：匿名使用者
這種情況我沒有遇到過，也沒看明白你得意思，附圖最好。。
cad：運用autolisp語言程式設計繪製下列圖形 100
9樓：
(defun c:aaa () (setq yd (getpoint "select first point")
dd1 (list (car yd) (+ 80 (cadr yd)))
dd2 (list (+ 120 (car yd)) (+ 80 (cadr yd)))
dd3 (list (+ 120 (car yd)) (cadr yd))
y1 (list (+ 20(car yd)) (+ 20 (cadr yd)))
r1 10
y2 (list (+ 110(car yd)) (+ 70 (cadr yd)))
r2 5)
(command "pline" yd dd1 dd2 dd3 "c")
(command "circle" y1 r1)
(command "circle" y2 r2)
(princ))
autoCAD裡的程式設計autolisp
看你的目標了，不過你作為乙個工程師，我想先把主要精力放到lisp上沒錯的，lisp作為表處理為特徵的人工智慧語言，有很多的優勢，尤其acad下面，autocad在最初最先支援的程式語言就是autolisp，現在發展成visual lisp。autolisp功能強大，能很好的處理acad圖形資料庫大多...
cad在位塊編輯到底怎麼用，CAD在位塊編輯到底怎麼用？
把沒反應的畫面截圖看一下 複製乙個需修改的塊，將其的xyz比例都調整為1後，再進行在位編輯 cad在位編輯怎麼用 在三爪侖喝咖啡的大熊貓 在塊上右鍵，選在位編輯塊就能進入了。塊編輯器就是只編輯塊，其他的都隱藏了。不過06有個新功能是活動塊，這個只能在塊編輯器裡修改。在位編輯就相當於把其他圖層鎖定，只...
cad為什麼不能進行夾點編輯，cad夾點編輯不見了
因為cad夾點編輯沒啟動,輸入 op 開啟選項面板 再單擊選擇集標籤.在啟用夾點和啟用夾點提示前打鉤,確定即可.輸入小數點或，恢復正常。關於 好好工作黨不會虧待你的 的問題 留個郵箱我把cad專殺的批處理給你發過去。關於移動變成了複製的問題 等處理完了 好好工作黨不會虧待你的 的問題之後要是還變不過...