[已解決]LISP的寫法請教

由 **adslwang** 周五 27 五月 - 23:59

新手練習,以下煩請教請高手指點一二:
1.參考參考書一般都是選擇集比較多,點位的範例似乎比較少,所以我想問
如果 (setq pp1 (getpoint "第1點:"))
(setq pp2 (getpoint "下1點:"))
有什麼方法可以以LISP求得這兩點的距離?(因為會有方向性跟角度點的問題)

2.請問LINE及PLINE指令的LISP可以在資料夾內找的到嘛?
(PS:一直想要去模擬它可是再怎麼用都試不成功)
3.我想將下面的pline
(command "pline")
(setq pp2 (getpoint "第1點:"))
(while pp2 (command pp2)
(setq pp2 (getpoint pp2 "下1點:"))
)
(command "")
(command "move" "cp" ) )
上面那一段是我要連同框把內容物移走也就是說有一個圖形被包在pline不規則多邊形框內的圖形有方什麼方法可以取得點位並帶入MOVE的指令中呢?或者要採用其它的方法呢?

由 **lsj** 周六 28 五月 - 15:12

1. (distance pt1 pt2)
2. 就是模擬它,如(command "line" pt1 pt2 "")
3. 請參考,依自己的需求再完善
(defun c:test()
(setq osm (getvar "osmode"))

(setq tsort '())
(setq pt1 (getpoint "\n第一點:"))
(setq tsort (cons pt1 tsort))
(vl-cmdf "pline" pt1)
(while (setq pt2 (getpoint pt1 "\n下一點:"))
(vl-cmdf pt2)
(setq tsort (cons pt2 tsort))
(setq pt1 pt2)
)
(vl-cmdf "c")
(setq ssl (entlast))

(setq ss (ssget "wp" tsort))
(if (/= ss nil)
(progn
(vl-cmdf "move" ss ssl "")
(prompt "\指定基準點:")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))
)
)

(setvar "osmode" osm)
(prin1)
)