求个“腰形”小程序

ysq101 · 发表于 2018-10-7 23:31

如图所示：
输入Y值
输入X值
getpoint (中心点)
生成如图图形
小小要求，请用MAKE写

evayleung · 发表于 2018-10-7 23:31

(defun c:ttt ()
(initget (+ 2 4))
(Setq x (getreal "\n输入X值："))
(initget (+ 2 4))
(Setq y (getreal "\n输入Y值：")
pt (getpoint "\n点选中心点：")
)
(SETQ PT1 (mapcar '+ (list (/ x -2) 0 0) (list 0 (/ y 2) 0) PT)
PT2 (mapcar '+ (list (/ x 2) 0 0) (list 0 (/ y 2) 0) PT)
PT3 (mapcar '+ (list (/ x 2) 0 0) (list 0 (/ y -2) 0) PT)
PT4 (mapcar '+ (list (/ x -2) 0 0) (list 0 (/ y -2) 0) PT)
LST (list pt1 pt2 pt3 pt4 pt1)
lst2 (list 0 -1 0 -1 0)
)
(entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 90 (length lst)))
(apply 'append (mapcar '(lambda (x) (if (listp x) x (list x))) (mapcar '(lambda (a b)(list (cons 10 a) (cons 42 b))) lst lst2))))
)
)

简单来一下，自己可以再深入写一下图层之类的。

updoc · 发表于 2018-10-8 10:07

要炫酷一点，还可以弄成动态的，可以琢磨一下

纵横八方 · 发表于 2018-10-8 13:00

动态快就OK

ysq101 · 发表于 2018-10-8 14:37

纵横八方发表于 2018-10-8 13:00
动态快就OK

2004CAD 从来没玩过这东东

ysq101 · 发表于 2018-10-8 14:37

纵横八方发表于 2018-10-8 13:00
动态快就OK

2004CAD
从来没玩过这东东

ysq101 · 发表于 2018-10-8 14:41

evayleung 发表于 2018-10-8 01:42
简单来一下，自己可以再深入写一下图层之类的。

正是所需
X值=X+Y 了
我自已修改一下

谢谢你的帮忙

ysq101 · 发表于 2018-10-8 14:41

updoc 发表于 2018-10-8 10:07
要炫酷一点，还可以弄成动态的，可以琢磨一下

CAD2004从来没用过动态块

luhy2008 · 发表于 2019-7-27 13:41

请问把X=X+Y替换哪里呀?谢谢!

账号		自动登录	找回密码
密码			注册

[提问] 求个“腰形”小程序