1樓：
a點的座標是（7，3.25）嗎？如果是的，則有下列程式外掛命令「ht」。
(defun c:ht (/ om m l pt1 pt2 pt3 pt4 pt5 pt6)
(setq om (getvar "osmode"))
(setvar "osmode" 0)
(setq m (getreal "\n請輸入m的長度<1.0>："))
(setq l (getreal "\n請輸入l的長度<3.0>："))
(if (= m nil) (setq m 1.0))
(if (= l nil) (setq l 3.0))
(setq pt1 (list 7 3.25))
(setq pt2 (polar pt1 (* (/ 270 180.) pi) m))
(setq pt3 (polar pt2 0 0.5))
(setq pt4 (polar pt3 (* (/ 90 180.) pi) 0.5))
(setq pt5 (polar pt4 0 (- l 0.5)))
(setq pt6 (polar pt5 (* (/ 90 180.) pi) (- m 0.5)))
(command "line" pt1 pt2 pt3 pt4 pt5 pt6 "c")
(setvar "osmode" om)
(prin1))
2樓：設定啥使用者名稱呢
上個清晰點的**，我要看到各條線段長度之間的關係。
用autolisp對cad二次開發，怎樣生成隨機數，急求！
3樓：朱正偉
;取得隨機數值
(defun lsp201510261 ( / n3 n4)(setq n3 (rtos (rem (getvar "date") 1) 2 16))
(setq n3 (substr n3 18 1) n3 (atoi n3))
(setq n4 (rem (getvar "cputicks") 10))
(fix (rem (+ n3 n4) 10)))原理：提取時間，然後提取cpu頻率，兩個數值相加除以10，取整數。
lisp語言如何設定cad當前繪圖顏色
4樓：朱正偉
(setq #os6 (getvar "cecolor") ;;取得當前顏色為#os6
(setvar "cecolor" "1");改變當前顏色為【紅】，顏色的數值到autocad裡面檢視。
(setvar "cecolor" #os6);顏色還原
;1.以上是一個設定方法，這個時候繪圖的話，會把圖形以設定顏色繪製。
;2.如果圖元物件已經繪製，要修改圖元顏色的話，這個圖元是ent 【如：(setq ent (entlast))】
(command "_.chprop" ent "" "color" 1 "");修改圖元顏色為【紅】；這個是直接改變顏色
用visual lisp 對cad進行二次開發如何獲取你所建立的字型樣式的個數，求教各位大神
5樓：匿名使用者
;列出所建立的字型樣式名
(defun c:ztgs()
(vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq styles (vla-get-textstyles doc))
(princ (strcat "\n共建立了" (itoa (1- (vla-get-count styles))) "個字型樣式, 名稱如下:"))
(vlax-for style styles(setq name (vla-get-name style))(if (/= name "standard")(princ (strcat "\n字型樣式名:" name))))(princ))
cad二次開發改變線的顏色LISP
defun c 123 gp setvar cmdecho 0 setq n getstring n 輸入你改變的顏色值 setq gp ssget if gp nil command change gp p c n princ nok princ end defun colorchange col...
二次開發包啥意思，視訊二次開發包
首先得說明什麼是二次開發，二次開發，簡單的說就是在現有的軟體上進行定製修改，功能的擴充套件，然後達到自己想要的功能，一般來說都不會改變原有系統的核心。一般的來說，一些大公司如ibm開發了一個大型的軟體系統平臺，根據不同的客戶的需要，一些其它的中小公司為客戶根據需求在該平臺上進行第二次有針對性的開發。...
AUTO CAD 得二次開發語言及工具
小程式用lisp，大程式用objectarx的。net版本。前者靈活，短小精悍。但是資料的組織不容易，執行效率差。後者是個大傢伙，不容易掌握，但是全部程式採用物件導向方法組織，概念先講，掌握後可以開發出相對高階的應用程式。現在微軟主推。net，你如果有相關的程式設計經驗 如vc c 等，掌握起後者來...