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

帮忙改一改

Error:DXF 组不正确: (CONS 10 (LIST P1X P1Y 0.0))不懂的改555555


(defun c:mr ()<BR>       (setq p0 (getpoint "\n请输入基点"))<BR>       (setq mrl (getreal "\n请输入长"))<BR>       (setq mrw (getreal "\n请输入宽"))<BR>       (setq p1x (car p0))<BR>       (setq p1y (cadr p0))<BR>       (setq p2x (+ p1x mrl))<BR>       (setq p2y (+ p1y mrw))


<BR>       (entmake '((0 . "LWPOLYLINE")<BR>                                       (100 . "AcDbEntity")<BR>                                       (8 . "0")<BR>                                       (62 . 1)<BR>                                       (100 . "AcDbPolyline")<BR>                                       (90 . 4)<BR>                                       (70 . 1)<BR>                                       (cons 10 (list p1x p1y 0.0))<BR>                                       (cons 10 (list p2x p1y 0.0))<BR>                                       (cons 10 (list p2x p2y 0.0))<BR>                                       (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 ()<BR>       (setq p0 (getpoint "\n输入基点"))<BR>       (setq mrl (getreal "\n输入长"))<BR>       (setq mrw (getreal "\n输入宽"))<BR>       (setq p1x (car p0))<BR>       (setq p1y (cadr p0))<BR>       (setq p2x (+ p1x mrl))<BR>       (setq p2y (+ p1y mrw))


<BR>       (entmake (LIST '(0 . "LWPOLYLINE")<BR>                                       (CONS 100 "AcDbEntity")<BR>                                       (CONS 8 "0")<BR>                                       (CONS 62 1)<BR>                                       (CONS 100 "AcDbPolyline")<BR>                                       (CONS 90 4)<BR>                                       (CONS 70 1)<BR>                                       (cons 10 (list p1x p1y 0.0))<BR>                                       (cons 10 (list p2x p1y 0.0))<BR>                                       (cons 10 (list p2x p2y 0.0))<BR>                                       (cons 10 (list p1x p2y 0.0))


                               )


       )


)<BR>

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

这样也可以:


(defun c:mr ()<BR>       (setq p0 (getpoint "\n请输入基点"))<BR>       (setq mrl (getreal "\n请输入长"))<BR>       (setq mrw (getreal "\n请输入宽"))<BR>       (setq p1x (car p0))<BR>       (setq p1y (cadr p0))<BR>       (setq p2x (+ p1x mrl))<BR>       (setq p2y (+ p1y mrw))


<BR>       (entmake (list '(0 . "LWPOLYLINE")<BR>                                       '(100 . "AcDbEntity")<BR>                                       '(8 . "0")<BR>                                       '(62 . 1)<BR>                                       '(100 . "AcDbPolyline")<BR>                                       '(90 . 4)<BR>                                       '(70 . 1)<BR>                                       (cons 10 (list p1x p1y 0.0))<BR>                                       (cons 10 (list p2x p1y 0.0))<BR>                                       (cons 10 (list p2x p2y 0.0))<BR>                                       (cons 10 (list p1x p2y 0.0))


                               


       )


)


)<BR>
页: [1]
查看完整版本: 帮忙改一改