1樓：
工具，自定義，程式引數autocad.pgp檔案開啟後，把*l *line,把前面的l改為xx就行了，很簡單。
求乙個autolisp例項
2樓：匿名使用者
lisp可以做到的根據兩個點糾正，你試一下
autolisp簡單程式
3樓：
這個問題太簡單，隨便找本關於autolisp程式的書看看就行了
再向你求乙個autolisp程式，
4樓：匿名使用者
(defun $vp->lp ( opt / )
(if (= (type opt) 'variant) (vlax-safearray->list (vlax-variant-value opt)) (vlax-3d-point opt) )
)(if (null vlax-dump-object) (vl-load-com) )
(if (setq &sel (entsel "\n請選擇要標示的直線:"))
>
(progn
(setq @p1 ($vp->>lp (vla-get-endpoint &sel)))
(setq @pv (vl-sort (list @p1 @p2) (function (lambda (a b) (< (distance a @ps) (distance b @ps))))))
(setq @p1 (car @pv) @p2 (cadr @pv) #an (rem (angle @p1 @p2) pi))
(setq @p3 (polar (polar @p1 #an 550) (+ #an (/ pi 2)) 50))
(if (>
(setq %tx (strcat (itoa #ds) "-" (itoa (/ #ds 1830)) "-" (itoa (rem #ds 1830))))
(setq %tx (itoa #ds))
>lp @p3) 300))
>list p1) p2 (vlax-safearray->list p2))
(if (or (> (distance @p3 @p1) #ds) (> (distance @p3 @p2) #ds)) (setq @p3 (polar @p3 #an (- 0 #tw 1100))) )
>lp @p3))
(initget "c") (setq #kw (getkword "\n是否需要映象位置?[映象(c)]: 《不映象》 "))
(if (member #kw (list "c" "c"))
(progn
>lp @p3))))
(princ "\n標示直線成功!")
)(princ "\n選擇的不是直線物件!")
)(princ "\n未選擇物件!")
)(princ)
)程式總算寫出來了，主要是文字位置的擺放費了不少時間去解決，命令tes測試下吧
5樓：匿名使用者
情況太多，主要是根據判斷來處理
求寫乙個autolisp的程式 cad 10
求用auto lisp語言編寫下圖的程式，希望簡單一些，拜託了。
6樓：匿名使用者
試程式設計序如下，請校核。
(defun hang (p r n)
(repeat n
(command "circle" p r)(setq l (cons p l)
p (polar p 0 (+ r r))))l)
(defun sjy (p r n / i p1 p2 p3 l)(setq i 0)
(repeat n
(hang p r (- n i))
(setq i (1+ i)
p (polar p (/ pi 3) (+ r r))))(setq p1 (last l)
p2 (car l)
p3 (polar p1 0 (distance p1 p2)))(command "pline" p1 p2 p3 "c")(command "offset" r p2 (polar p2 (/ pi 2) (+ r r)) "")
(command "erase" p2 "")l)(defun c:sjy (/ p r n)(setq p (getpoint "左下角圓心座標：")r (getdist p "半徑：
")n (getint "排數：")
)(sjy p r n))
求乙個autolisp程式，具體作用如下。 200
7樓：匿名使用者
最好給個例圖，這樣也好除錯
8樓：匿名使用者
wblock，寫塊。
不過，真有必要分開嗎？
求簡單的科學實驗！急急急急急，求簡單的科學實驗！急急急急急
可以做乙個名字叫 紅顏易逝 的科學實驗，蠻有趣的要準備的東西 一杯紅茶 乙個檸檬 大超市裡都有 一把小刀 讓小朋友注意安全，或者老師切好後發給小朋友 方法 把乙個檸檬用小刀切開，把擠出來的檸檬汁倒入紅茶水中，會看到紅茶水慢慢褪色了，變成了無色的茶水。原理 紅茶中含有色素，色素會讓紅茶水顯現出顏色。把...
求詳細簡單的裝修程式，求一個詳細簡單的裝修程式
eric蕭瀟 找個設計公司設計 看好圖紙，交付定金，以下就按設計師的意思開始了 1.先走水電，材料自己買，工錢不一樣的地方計算方式不同 2.鋪地板 一般按平米計算，不一個價位的地轉工錢不同，地磚自己買 家裝差不多的得70元一塊，因為地轉要貼好的，房子一般只貼一次地磚的 要考慮到避免二次裝修 3.牆磚...
求C語言程式的解答 乙個簡單的程式
已修改 include void main 將a b中的最小值賦給a if a c 將a c中的最小值賦給a,即a為a b c中的最小值。if b c 在比較b c將最大值賦給c,完成a b c由小到大的排序。n c 對中間變數n進行初始化。while n a 0 n b 0 用中間變數n代替cpr...