【转帖】请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
 

请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
www.dimcax.com
请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
请各位学长和老师帮下忙
求一个以方孔中心位画方孔的lisp
cad里只能以端点开始画方孔 由于工作需要 这样画方孔实在太麻烦了 得画好在定中心位置
所以请大家帮个忙给我编个以中心点为位置画方孔的lisp 谢谢
re:请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
(defun c:tt()
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n请输入方孔中心"))
(command "polygon" 4 pt1 "i") ; 若是外接于圆则将i改为 c
)
re:请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
简单的东西

试试先
先谢谢啦

-.- 我说的不够清楚不好意思...
我想要的是可以指定长宽画方孔的...就是矩形....以中心位置定位画矩形....各位再帮帮忙吧 麻烦大家了....
re:请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
(defun c:tt()
(setvar "cmdecho" 0)
(setq pt1 (getpoint "\n请输入方孔中心"))
(setq aa (getdist "\n请输入方孔长度："))
(setq bb (getdist "\n请输入方孔宽度："))
(setq pt2 (polar pt1 pi (/ aa 2)))
(setq pt2 (polar pt2 (* pi 1.5) (/ bb 2)))
(command "rectang" pt2 "d" aa bb pt1)
)
re:请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
(defun c:jx ()
(setvar "cmdecho" 0)
(setvar "osmode" 1007)
(setq pt0 (getpoint "\n请输入矩形的中心点坐标位置,或者用点选取:"))
(while (= pt0 nil)
(setq pt0 (getpoint "\n 矩形的中心点坐标位置输入错误，请重新输入或用点选取: "))
)
(setvar "orthomode" 1)
(setq cd (getdist pt0 "\n请输入矩形 *长度的一半(x向)* ,或者用两点选取:"))
(while (= cd nil)
(setq cd (getdist pt0 "\n *长度的一半(x向)* 值输入错误，请重新输入或用两点选取: "))
)
(setq cd (* cd 2))
(setq gd (getdist pt0 "\n请输入矩形 *高度的一半(y向)* ,或者用两点选取:"))
(while (= gd nil)
(setq gd (getdist pt0 "\n *高度的一半(y向)* 值输入错误，请重新输入或用两点选取: "))
)
(setq gd (* gd 2))
(setvar "orthomode" 0)
(setq jd0 (getangle pt0 "\n 输入矩形相对于正方向的旋转角<0>: "))
(if (= jd0 nil)(setq jd0 0.0))
(setq dist01 (/ (sqrt (+ (expt cd 2) (expt gd 2))) 2))
(setq jd1 (atan cd gd))
(setq pt1 (polar pt0 (- (+ mya jd0) jd1) dist01))
(setq pt2 (polar pt1 jd0 cd))
(setq pt3 (polar pt2 (+ pya jd0) gd))
(setq pt4 (polar pt1 (+ pya jd0) gd))
(setvar "osmode" 0)
(command "line" pt1 pt2 pt3 pt4 "c")
(command "redraw")
(setvar "osmode" 1007)
(setvar "cmdecho" 1)
(prin1)
)
re:请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
命令: jx
请输入矩形的中心点坐标位置,或者用点选取:
请输入矩形 *长度的一半(x向)* ,或者用两点选取:50
请输入矩形 *高度的一半(y向)* ,或者用两点选取:50
输入矩形相对于正方向的旋转角<0>: 0
; 错误: 参数类型错误: numberp: nil
命令:
命令: jx
请输入矩形的中心点坐标位置,或者用点选取:
请输入矩形 *长度的一半(x向)* ,或者用两点选取:15
请输入矩形 *高度的一半(y向)* ,或者用两点选取:15
输入矩形相对于正方向的旋转角<0>: 180
; 错误: 参数类型错误: numberp: nil
命令:
命令: jx
请输入矩形的中心点坐标位置,或者用点选取:
请输入矩形 *长度的一半(x向)* ,或者用两点选取:10
请输入矩形 *高度的一半(y向)* ,或者用两点选取:10
输入矩形相对于正方向的旋转角<0>: 90
; 错误: 参数类型错误: numberp: nil
re:请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
谢谢几位了 呵呵 都是热心的好人呐 谢谢咯
hawking_xu的这个适合我用 谢谢大家了
re:请各位学长和老师帮下忙 求一个以方孔中心位画方孔的lisp
5楼的程序简单实用，不愧高手