如何实时显示要画的图形
如题，下面代码后半部分是错的，主要是这个线不像文字存在插入点而且有好多点，不知道如何处理呢，请高手指教。。。(defun c:tt ()
(setq p (grread t 4 0)
pt6(cadr p)
pt3(polar pt6 0 450)
pt4(polar pt6 0 750)
ptzd (polar pt6 (/ pi 2) 300)
pt2(polar ptzd 0 150)
pt5(polar ptzd 0 750)
pt1(polar ptzd 0 1840)
)
(setq lst (list pt1 pt2 pt3 pt4 pt3 pt5 pt3 pt6))
(entmake (append (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length lst))
)
(mapcar '(lambda (pt) (cons 10 pt)) lst)
)
)
(setq pline (entget (entlast)))
(while (= 5 (car p))
(setq p (grread t 4 0)
pt6(cadr p)
pt3(polar pt6 0 450)
pt4(polar pt6 0 750)
ptzd (polar pt6 (/ pi 2) 300)
pt2(polar ptzd 0 150)
pt5(polar ptzd 0 750)
pt1(polar ptzd 0 1840)
)
(setq lst (list pt1 pt2 pt3 pt4 pt3 pt5 pt3 pt6))
(entmake (append (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(100 . "AcDbPolyline")
(cons 90 (length lst))
)
(mapcar '(lambda (pt) (cons 10 pt)) lst)
)
)
(entmod pline)
)
)
页:
[1]