求cad的一个lisp程序,要求鼠标点击一点后,在其旁输出坐标值(x,y,z)

求cad的一个lisp程序,要求鼠标在点击一点后,输入长、宽两个数值，就能出来矩形，并且自动画出矩形的对角线~

(defun c:hk ()
(setq xy1 (getpoint "请点击矩形左下角:")
kd (getreal "请输入宽度:")
cd (getreal "请输入长度:")
xy2 (polar xy1 0 cd)
xy3 (polar xy2 (angtof "90") kd)
xy4 (polar xy1 (angtof "90") kd)
)
(command "pline" xy1 xy2 xy3 xy4 "c")
(command "line" xy1 xy3 "")
(setq a (entlast))
(command "change" a "" "p" "lt" "x0" "")
(command "line" xy2 xy4 "")
(setq a (entlast))
(command "change" a "" "p" "lt" "x0" "")
)
试一试，是不是这个效果，，

复制下面的脚本到命令行回车即可加载，输入pldd，程序会提示选择pline，选择pline后会打印所有的三维坐标
(defun c:pldd (/ wb cc ss1 aa pts bhbz ent)
(setq ent (car (entsel "
请选择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

其实很简单的，不用三楼那么麻烦的。

(defun c:pt()

  (setvar "cmdecho" 0)

  (while (setq pt1 (getpoint "
请指定点位置:"))

    (setq point_x (rtos (car pt1) 2 2))

    (setq point_y (rtos (cadr pt1) 2 2))

    (setq point_z (rtos (caddr pt1) 2 2))

    (command "_text" pt1 "" "" (strcat "(" point_x "," point_y "," point_z ")"))

    )

(princ)

  )

效果如图所示

getpoint
(setq a (getpoint "dian"))
(setq b (strcat (rtos (car a) 2 2) "," (rtos (cadr a) 2 2) "," (rtos (caddr a) 2 2) ))
(command "-text" a "" "" b "")

不清楚你想怎么具体显示，下面的程序你可试试，我属LISP初级的那种，偶尔工作需要编个小东东自己用，见笑了哈。
(defun c:point()
(princ

---

龙里县17869336227： 求cad的一个lisp程序,要求鼠标在点击一点后,输入长、宽两个数值,就能出来矩形,并且自动画出矩形的对角线 - ？
法怡脑得： (defun c:hk () (setq xy1 (getpoint ＂请点击矩形左下角:＂) kd (getreal ＂请输入宽度:＂) cd (getreal ＂请输入长度:＂) xy2 (polar xy1 0 cd) xy3 (polar xy2 (angtof ＂90＂) kd) xy4 (polar xy1 (angtof ＂90＂) kd)) (command ＂pline＂ xy1 xy2 xy3 xy4 ...

龙里县17869336227： 谁能帮我写个cad的lisp程序? - ？
法怡脑得： (defun c:mov1() ; 选择所有对象,平移-500000,0(setq ss (ssget ＂x＂ ))(command ＂move＂ ss ＂＂ (list 0 0) (list -500000 0)))(defun c:mov2() ; 选择所有对象,平移500000,0(setq ss (ssget ＂x＂ ))(command ＂move＂ ss ＂＂ (list 0 0) (list ...

龙里县17869336227： 求一个cad的LISP程序 - ？
法怡脑得： 我可以帮你编制,做到这个功能.请你先给这个命令起个名称.如果你愿意,我可以帮你起这个名字,就叫ct 吧(存图的意思).源代码如下,图形直接存到D:盘根目录下. (defun c:ct (/ dat file)(setq dat (rtos (fix (getvar ＂cdate＂))))(setq file (strcat ＂d:＂ (substr (getvar ＂dwgname＂) 1 (- (strlen (getvar ＂dwgname＂)) 4)) dat))(command ＂saveas＂ ＂＂ file ＂y＂)(princ ＂当前的DWG文件存储目录为:d:＂) )

龙里县17869336227： 求大神帮忙写一个cad的lisp程序 - ？
法怡脑得： 编了一个lisp 输入命令ZB再选择文字(defun c:ZB() (setq ss (ssget))(command ＂change＂ ＂p＂ ＂＂ ＂p＂ ＂c＂ ＂red＂ ＂＂)(command ＂scaletext＂ ＂p＂ ＂＂ ＂e＂ ＂100＂)) 接下来的你自己弄吧

龙里县17869336227： 帮忙写个CAD LISP程序,就是将一条线去除中间保留两端一定数值的.lisp - ？
法怡脑得： 可以首先把这几个线框做成面域,然后用面域合并命令合并面域.然后总面积就出来了.不用lisp就可以实现了.

龙里县17869336227： 编写一lisp程序 cad - ？
法怡脑得： 试编程序如下,请校核. (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)...

龙里县17869336227： cad高手,请看过来!!!求一个实现如下功能的lisp程序 - ？
法怡脑得： 朋友 我不知道你到底是遇到什么麻烦,但是你要是想算面积的话那就很简单,一个小小的AA命令就能解决.要是标注的话那就更不是问题,连续标注可以减少很多麻烦,就不用一个个的去点击了,很是方便快捷.但是你想要加载程序的话,我这也有,功能很多,要的话Q我:565588349,还有在CAD里面算面积也是有局限性的,要是有复杂曲线或是多段线还有样条曲线组成的闭合图框那么是算不了的,一般情况下,计算纯线段组成的封闭框面积是很容易的,首先你先创一个边界,然后AA命令就OK了.

龙里县17869336227： 求一个CAD中快捷相对移动的LISP - ？
法怡脑得： 你说的相对移动不需要写LISP程序的,可以使用移动命令move,选择对象-选择移动对象-选择相对基点-输入相对坐标(输入相对坐标时在坐标值前加一个＂@＂字符.就能实现你要的功能.也可以用以下LISP实现(defun c:m1 (/ a1 p1 p2) (prompt ＂选择移动对象:＂) (setq a1 (ssget)) (prompt ＂选择相对基点:＂) (setq p1 (getpoint)) (prompt ＂输入相对坐标:＂) (setq p2 (getpoint)) (command ＂move＂ a1 ＂＂ p1 (mapcar '+ p1 p2 ) ))

龙里县17869336227： 用lisp代码帮忙写个CAD小程序 - ？
法怡脑得： (defun c:n3() (vl-load-com) (setq cm (getvar ＂cmdecho＂) os (getvar ＂osmode＂)) (setvar ＂cmdecho＂ 0) (command ＂_undo＂ ＂be＂) (setq pdbz nil) (vlax-for obj (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object))) (if (= (vla-get-...

龙里县17869336227： 求一个lisp程序,关于提取CAD图像坐标 - ？
法怡脑得： 方案一:直接读取dwg格式文件有点难度,估计高手会做 方案二:若是文件有很多要做的话,可以用C#,C++,VB通过COM去开发,用COM方式依次打开dwg图档,然后遍历图元来进行你的要求来运算 方案三:若是文件有很多要做的话,也可以用AutoLisp来做,自动打开你的文件列表,然后遍历图元来进行你的要求来运算 方案四:若是文件不是很多的话,也可以手动打开dwg文件,然后编写lisp函数遍历图元来进行你的要求来运算 或者你发一些CAD参考图档给我,我来帮你看看到底怎么做合适 若是觉得满意的话还请采纳