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))
cad拉伸路徑怎麼用，cad拉伸面路徑的問題
將此圖複製到弧線的另一端點，你再用放樣拉伸，弧線作為路徑。截面要與路徑相垂直！cad拉伸面路徑的問題 初步判斷你的路徑的半徑太小，所以那個圓環體沒法拉伸 解決方法如下 首先選擇的那個物件，一定要是面域。做為拉伸的路徑，一定要是多段線。拉伸的面域與路徑不能在同一平面上。如果是在原來實體上，再一次拉伸一...
零基礎自學python程式設計需要注意哪些問題
在學習之前考慮一個問題 python版本選擇，對於程式設計零基礎的人來說，選擇python3。python職業學習方向很多，大體上分為這四個 後端開發 資料科學 網路爬蟲 機器學習 只會埋頭敲 肯定不行的，需要自己動手寫寫具體的專案，如果你想尋找某個專案，可以去github上找。程式設計零基礎應當如...
問一道c語言程式設計題題目如下輸入字元
改如抄 下，你襲對照看 include stdio.h int main void c語言程式設計題目 給一個字串，請找出出現次數最多的大寫英文字母。include stdio h include string h void main chara 100 intfre 26 int i，len，bi...