帮忙改一改

suyongyu · 发表于 2005-1-21 19:47:00

Error:DXF 组不正确: (CONS 10 (LIST P1X P1Y 0.0))不懂的改555555 (defun c:mr ()
(setq p0 (getpoint "\n请输入基点"))
(setq mrl (getreal "\n请输入长"))
(setq mrw (getreal "\n请输入宽"))
(setq p1x (car p0))
(setq p1y (cadr p0))
(setq p2x (+ p1x mrl))
(setq p2y (+ p1y mrw))
(entmake '((0 . "LWPOLYLINE")
(100 . "AcDbEntity")
(8 . "0")
(62 . 1)
(100 . "AcDbPolyline")
(90 . 4)
(70 . 1)
(cons 10 (list p1x p1y 0.0))
(cons 10 (list p2x p1y 0.0))
(cons 10 (list p2x p2y 0.0))
(cons 10 (list p1x p2y 0.0)) ) ) )

suyongyu · 发表于 2005-1-21 19:50:00

大侠快来啊

无痕 · 发表于 2005-1-21 21:57:00

(entmake '((

(entmake (list (

f5612140 · 发表于 2005-1-21 22:03:00

(defun c:mr ()
(setq p0 (getpoint "\n输入基点"))
(setq mrl (getreal "\n输入长"))
(setq mrw (getreal "\n输入宽"))
(setq p1x (car p0))
(setq p1y (cadr p0))
(setq p2x (+ p1x mrl))
(setq p2y (+ p1y mrw))
(entmake (LIST '(0 . "LWPOLYLINE")
(CONS 100 "AcDbEntity")
(CONS 8 "0")
(CONS 62 1)
(CONS 100 "AcDbPolyline")
(CONS 90 4)
(CONS 70 1)
(cons 10 (list p1x p1y 0.0))
(cons 10 (list p2x p1y 0.0))
(cons 10 (list p2x p2y 0.0))
(cons 10 (list p1x p2y 0.0)) ) ) )

ljpnb · 发表于 2005-1-21 23:48:00

这样也可以: (defun c:mr ()
(setq p0 (getpoint "\n请输入基点"))
(setq mrl (getreal "\n请输入长"))
(setq mrw (getreal "\n请输入宽"))
(setq p1x (car p0))
(setq p1y (cadr p0))
(setq p2x (+ p1x mrl))
(setq p2y (+ p1y mrw))
(entmake (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(8 . "0")
'(62 . 1)
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
(cons 10 (list p1x p1y 0.0))
(cons 10 (list p2x p1y 0.0))
(cons 10 (list p2x p2y 0.0))
(cons 10 (list p1x p2y 0.0)) ) ) )

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