1樓：朱正偉
(setvar "dimzin" 0);程式開始的時候，加這句話，可以提高精度，這樣cosα的值誤差減少。
投影方法，已經知道底直線及頂點，求頂點到直線最近點(vlax-curve-getclosestpointto obj pt);要保證點在直線中間位置，可以考慮繪製一條構造線，取得最近點，刪除構造線，取得兩點距離就是h
autolisp編段程式用了修改直線段一個端點的座標
2樓：匿名使用者
(defun c:test ()
(setq line_obj_data(entget (car (entsel))))
(setq new_startpoint (getpoint "\n請輸入起點座標:"))
(setq new_endpoint (getpoint "\n請輸入端點座標:"))
(setq line_obj_data(subst(cons 10 new_startpoint)(assoc 10 line_obj_data)line_obj_data))
(setq line_obj_data(subst(cons 11 new_endpoint)(assoc 11 line_obj_data)line_obj_data))
(entmod line_obj_data)
(princ))
auto lisp 中求一段多段線的座標儲存在一個表中，然後在每個點上畫圓。求改函式
3樓：匿名使用者
你的程式第三行中(entget(pline_name))是錯誤的，pline_name不應該有括號。
程式編寫過於複雜，簡化程式如下：
(defun c:pwline (/ pline_name pline_content c)
(setq pline_name (car (entsel "請選擇需要標註的多段線:"))
pline_content (entget pline_name)
c (assoc 10 pline_content)
)(while c
(command "circle" (cdr c) 10)
(setq pline_content (cdr (member c pline_content))
c (assoc 10 pline_content))))
請教autolisp語言編寫一個程式，給一組點座標賦值並在命令列輸出，哪位高手幫忙寫一下
4樓：
具體點setq就是賦值用的
getpoint可以選擇點
(setq p1(getpoint ))
(setq p2(getpoint p1))
求修改lisp程式，如何提取cad中多個點的座標，（本人想提取ucs座標系）另外只需要提取x,y值，不要z 5
5樓：匿名使用者
我有提取cad裡的座標到excel**的軟體，可以永久使用的，你要嗎？
如何在auto cad中輸入一個點的z軸座標。。。
6樓：匿名使用者
cad的座標輸入是x，y，z的方式，一般我們畫的都是二維圖形z值一直是0，所以將其省略沒有輸入，就成了x，y的狀態。比如：10，5
現在你要用三維座標了，你只要再加上z就可以了。比如：10，5，6
7樓：匿名使用者
你輸平面的時候例如: 50,50
輸3d的時候就是: 50,50,50
就這麼簡單,不過現在幾呼沒人用座標畫的,光算點就能搞死人!
你把立體幾何學好!頭腦空間想像力豐富點!那麼畫3d就是小意思了!
怎樣用autolisp程式把檔案中所有圖形（包括圓、圓弧、線段、多段線）的z座標改為0？
8樓：朱正偉
由於塊不能夠座標歸零，所以這個程式除塊以外可以z座標歸零。命令：z0
VB程式設計問題，VB程式設計中的迴圈問題
有個 自己去看吧，都是考試的。編一個求圓周長的程式。輸入半徑，得到周長和麵積。試試看。建議你不要光學vb,畢竟它有太多缺點，很多事做不了 如果是對basic語言感興趣的話，到不如去學哈freebasic,powerbasic,purebasic,它們都功能超級強大 freebasic甚至可以寫作業系...
c語言程式設計中101是什麼意思C語言程式設計中101是什麼意思
char c4 101 這裡的 101是個轉義字元。c語言中，一個ascii字元用單引號括起來，表示單字元常專量，如 a a 0 9 等 c語言中，還定屬義了一些字母前加 來表示常見的那些不能顯示的ascii字元，如 0,t,n等，稱為轉義字元 因為 斜槓 後面的字元，都不是它本來的ascii字元意...
數控程式設計中u和w代表什麼意思,數控程式設計中U和W分別代表什麼意思
增量座標表示方法,在數控車床中,某一點的座標可以表示為機床原點的絕對座標 x,y,z 也可以表示為相對於上一點的增量座標 u,v,w w,u就是相對於上一點的z x方向的上的位移 數控程式設計中u和w分別代表什麼意思?x z是絕對座標 零件座標系中的終點位置5 y b h e d1 n7 p u w...