画封闭多边形----------脱了裤子放屁

/db_自贡黄明儒_ · 发表于 2014-10-17 16:10:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;[功能] 画封闭多边形----------脱了裤子放屁
(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)
)
  )
)

good32167 · 发表于 2014-10-17 17:10:54

受教了，动态显示这块一直不会做

chbddzx12 · 发表于 2014-10-17 18:47:03

没看懂~~~~~~~~~~~~~

Free-Lancer · 发表于 2014-10-18 09:45:29

以前这样写过

(defun c:tt (/ pt pts)
(while (setq pt (if pts
(getpoint (car pts) "\nPoint: ")
(getpoint "\nPoint: ")
)
)
(setq pts (cons pt pts))
(if (> (length pts) 1)
(mapcar '(lambda (x y) (grdraw x y 1)) pts (cdr pts))
)
)
)

/db_自贡黄明儒_ · 发表于 2014-10-18 10:09:18

Free-Lancer 发表于 2014-10-18 09:45
以前这样写过

写完之后，才发现多此一举了，画多段线还是用 _pline好了。

77077 · 发表于 2014-10-19 13:41:29

http://bbs.xdcad.org/thread-676524-1-1.html
也不一定就是放屁脱裤子，帮我研究下这个题目吧~~~~

liuchong1988 · 发表于 2014-10-29 13:23:09

溜达溜达
1111

吴外安放 · 发表于 2020-7-26 18:44:39

谢谢版主分享

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

[每日一码] 画封闭多边形----------脱了裤子放屁

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分