1樓：湛書文
我建議還是要熟練運用快捷鍵，到哪都不會煩惱，一味的追求方便，有時候是對自己不利的，你說的那個連線命令其實不是你說的那麼慢，我使用這個命令一般2-3秒就夠了，熟練就好了，每出現一個命令框你還要看清按哪個鍵，肯定是慢得
你說的應該是這樣的 pe+空格+m+空格 +選中你要連線的線+空格+空格+j+空格+空格，搞定 這個方法不行立刻使用第二種：f+空格+r+空格。一下就能連上 就這兩種變換使用
2樓：匿名使用者
;略作修改
(defun c:pp()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\n 多項選擇同時連線----鈕廣春整理--★qq-626860125★")
(setvar "peditaccept" 1) ;加入這個系統變數的**
(if (setq ngc01 (ssget '((0 . "line,arc,lwpolyline,polyline"))))
(command "_pedit" "m" ngc01 "" "j" "0.1" "")
)(setvar "cmdecho" cm)
(princ))
尋找高手幫忙編寫一個cad的lisp程式，輸入命令框選所有線條，能所有將樣條曲線都轉成圓弧。
3樓：常常米斯
實際上樣條曲線轉換成圓弧是不行的，如果有這樣的程式那也是程式在曲線的軌跡上繪製圓弧然後再將曲線刪除。這樣的程式我沒有
不過我只將樣條曲線轉換成多條相連線線段。不知道能不能滿足你的使用方法是：
1.將圖形以*.wmf格式輸出
2.輸入剛才的wmf檔案，然後打散
3.縮放比例
你輸出wmf檔案時所選的圖形在電腦螢幕上顯示的越大，最後得到的線條輪廓越細膩
4樓：匿名使用者
最簡單的辦法，將圖元轉成dxf(r12)格式檔案，然後開啟，圖元即轉成polyline.
你要轉成圓弧，可能沒辦法。因為它本身沒有圓弧的特徵，只能做出近似圓弧，這個恐怕需要手動抓取的。
5樓：匿名使用者
這個需要演算法的，起碼給出容差，不然轉出來的東西不會有實用價值！
尋找高手幫忙編寫一個cad的lisp程式，輸入命令框選所有線條，能所有將樣條曲線都轉成圓弧。
6樓：匿名使用者
用mastercam9.0可用全選，不過還得學習怎麼轉那裡全是英文.你可以向燕秀求助！
如果要學mastercam9.0我可教你怎麼轉簡單易上手
7樓：匿名使用者
你是要選擇所來有園弧吧自
，arc就是園弧的代號
(defun c:qs_arc(/ s1 s2 sum)(command "_.pselect" (ssget "x" (list(cons 0 "arc"))) "")
)如果要選擇arc和所有line，則改為
(command "_.pselect" (ssget "x" (list(cons 0 "arc"))) (ssget "x" (list(cons 0 "*line"))) "")
8樓：蘿蔔vs白菜
向量資訊經過**處理後都丟失了，重新生成的都是原圖形的近似，要想精確還原不可能了。
9樓：匿名使用者
你用的是什麼cad?中望？還是auto? 中望裡可以將弧線轉換成圓
求cad lisp 程式，選擇一條或多條多段線，輸出其上點的x,y,z座標。
10樓：志遠
複製下面的指令碼到命令列回車即可載入，輸入pldd，程式會提示選擇pline，選擇pline後會列印所有的三維座標
(defun c:pldd (/ wb cc ss1 aa pts bhbz ent)
(setq ent (car (entsel "\n請選擇pline")))
(setq wb (entget ent) cc nil bhbz (cdr (assoc 70 wb)) )
(cond
((= (cdr (assoc 0 wb)) "polyline")
(setq ss1 (entnext ent))
(while (/= ss1 nil)
(setq aa (entget ss1))
(if (= (cdr (assoc 0 aa)) "vertex") (progn
(setq aa (cdr (assoc 10 aa)))
(if (/= aa nil) (progn
(if (= (length aa) 2)
(setq aa (list (car aa) (cadr aa) 0.0) )
)(if (= cc nil)
(setq pts aa)
)(setq cc (cons aa cc))
))(setq ss1 (entnext ss1))
)(setq ss1 nil)))
(if (= bhbz 1)
(setq cc (cons pts cc))))
((= (cdr (assoc 0 wb)) "lwpolyline")
(setq wb (member (assoc 10 wb) wb))
(while (assoc 10 wb)
(setq aa (cdr (assoc 10 wb)))
(if (= (length aa) 2)
(setq aa (list (car aa) (cadr aa) 0.0) )
)(if (= cc nil)
(setq pts aa)
)(if (= (length aa) 2)
(setq aa (list (car aa) (cadr aa) 0.0) )
)(setq cc (cons aa cc) wb (cdr wb))
(if (assoc 10 wb)
(setq wb (member (assoc 10 wb) wb))))
(if (= bhbz 1)
(setq cc (cons pts cc))))
((= (cdr (assoc 0 wb)) "spline")
(setq wb (member (assoc 11 wb) wb))
(while (assoc 11 wb)
(setq aa (cdr (assoc 11 wb)))
(if (= (length aa) 2)
(setq aa (list (car aa) (cadr aa) 0.0) )
)(if (= cc nil)
(setq pts aa)
)(setq cc (cons aa cc) wb (cdr wb))
(if (assoc 11 wb)
(setq wb (member (assoc 11 wb) wb))))
))cc) ;end of defun
幫忙寫個電腦配置單
intel 平臺 配件名 數量 單價 品牌型號 cpu 1 500 intel pentium e2140主機板 1 699 捷波 悍馬hi01gt 記憶體 2 210 威剛 萬紫千紅 ddrii800 1g硬碟 1 380 希捷 酷魚 7200.10 80g顯示卡 1 799 影馳 8600gt魔...
想寫個Windows小程式，用什麼語言好
你會什麼？用你最擅長的。如果都不會，用vb最容易上手。1 看你會什麼語言。2 看寫怎樣的小程式 3 執行環境。那取決於你比較熟悉什麼程式語言了。請教 編寫windows小程式，一般用什麼語言 看你用什麼測量了不過c語言用得比較多，還有彙編！寫一些自己用的介面小程式，用什麼語言好 專業點的話可以使用v...
請達人幫忙，寫個電腦配置
你的這個願望好象不好實現啊。1000 1500的電腦想流暢執行photoshop和繪聲繪影就不好辦，首先是這兩個軟體需要比較好的顯示卡，然後是ps需要較大的記憶體。給你寫個2000的吧，也許能行。cpu amd athlon64 x2 3600 65nm 盒裝 450元 主機板 梅捷am690g g...