一下程序是黄大师的画多边形，没有捕捉功能，求增加

664571221 发表于 2018-9-25 19:34:17

;;[功能] 画封闭多边形----------脱了裤子放屁
(defun C:w1 (/ PTS)
(cond ((setq pts (HH::getPoints)) (MakeXLWPOLYLINE pts)))
)

;;[功能] 取点函数
(defun HH::getPoints (/ CODE FLAG P0 PT PT1 X Y)
(while (and (setq code (grread T 8)) (or (= (car code) 3) (= (car code) 5)))
(cond ((= (car code) 3) (setq pt (cons (cadr code) pt))))
(redraw)
(cond
   ((> (length pt) 1)
   (setq pt1 (cons (cadr code) pt))
   (setq pt1 (cons p0 pt1))
   (mapcar '(lambda (x y) (grdraw x y 1)) pt1 (cdr pt1))
   )
   ((equal (length pt) 1) (setq p0 (car pt)) (grdraw p0 (cadr code) 1))
   (T
   (cond ((not Flag) (setq Flag T) (princ "\n 点取起点")))
   )
)
)
(redraw)
(cond ((> (length pt) 2) (reverse pt)))
)
;;http://bbs.xdcad.net/thread-673261-1-1.html
;;167.3 [功能] Entmake点表生成多段线
(defun MakeXLWPOLYLINE (lst / PT)
(entmakeX
(append
   (list '(0 . "LWPOLYLINE")
         '(100 . "AcDbEntity")
         '(100 . "AcDbPolyline")
         (cons 90 (length lst))
         '(70 . 1)
   )
   (mapcar '(lambda (pt) (cons 10 pt)) lst)
)
)
)

evayleung 发表于 2018-9-26 00:35:12

在论坛上找出GU版的GRREAD函数，然后替换进去就行了，应该不难的。

664571221 发表于 2018-9-26 09:08:44

evayleung 发表于 2018-9-26 00:35
在论坛上找出GU版的GRREAD函数，然后替换进去就行了，应该不难的。

你好大师能帮忙弄下吗

start4444 发表于 2018-9-26 14:00:25

664571221 发表于 2022-3-20 14:52:10

evayleung 发表于 2018-9-26 00:35
在论坛上找出GU版的GRREAD函数，然后替换进去就行了，应该不难的。

大神你好可以帮忙看下不

zmzk 发表于 2022-3-20 19:50:16

怎么应用啊？

atone 发表于 2024-2-15 19:30:34

谁来弄下，想看看

bonny 发表于 2024-2-15 20:16:32

要啥GRREAD，直接(command "PLINE")
或
(defun c:tt (/ e p s)
(if (and (setq p (getpoint))
(setq s (list p))
)
(while (setq p (getpoint p))
(setq s (append s (list p)))
(if e (entdel e))
(command "PLINE")
(foreach x s (command "non" x))
(command "c" )
(setq e (entlast))
)
)
)

页: [1]

明经CAD社区's Archiver

一下程序是黄大师的画多边形，没有捕捉功能，求增加