[文章]：entmake lwpolyline的方法...

XDSoft · 发表于 2002-1-30 00:16:23

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

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

×

This code is compatible with:
Version: R14.01, 2000

Here are some group codes which can be used in the polyline's data to specify
its properties:

8 specifies the layer
62 specifies the colour
70 specifies whether a polyline is open or closed
40 and 41 need to be set for each polyline vertex, to set the start and end
widths for the segment

Here is some code which can be used to create LWPOLYLINEs from LISP:

(defun c:entmakelwpoly(/ vlist elist lay col wdt pt)
;vertex list
(Setq vlist '( (50 50) (150 50) (150 150) (50 150) ))
(setq elist '())
(setq lay "0")
(setq col 2)
(setq wdt 2.0)
;build header
(setq elist (append elist
(list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 67 0)
(cons 62 col)
(cons 410 "Model")
(cons 8 lay)
(cons 100 "AcDbPolyline")
(cons 90 (length vlist))
(cons 70 1)
(cons 43 wdt)
(cons 38 0.0)
(cons 39 0.0)
)
)
);setq
;build vertexes
(foreach pt vlist
(setq elist (append elist
(list
(cons 10 pt)
(cons 40 2.0)
(cons 41 2.0)
(cons 42 0.0)
)
)
);setq
);foreach
(setq elist (append elist (list (list 210 0.0 0.0 1.0)))) ;normal vector
;create lwpolyline
(entmake elist)
(princ)
)

(defun c:entmakelwpoly(/ vlist elist lay col wdt pt) 
        ;vertex list 
        (Setq vlist '( (50 50) (150 50) (150 150) (50 150)  )) 
        (setq elist '()) 
        (setq lay "0") 
        (setq col 2) 
        (setq wdt 2.0) 
 
        ;build header 
 
        (setq elist (append elist 
                                (list                             
                                        (cons 0  "LWPOLYLINE") 
                                        (cons 100  "AcDbEntity") 
                                        (cons 67  0) 
                                        (cons 62 col) 
                                        (cons 410  "Model") 
                                        (cons 8 lay) 
                                        (cons 100 "AcDbPolyline") 
                                        (cons 90 (length vlist)) 
                                        (cons 70  1) 
                                        (cons 43  wdt) 
                                        (cons 38  0.0) 
                                        (cons 39  0.0) 
                                ) 
                     ) 
          );setq                             
        
        ;build vertexes 
        (foreach pt vlist 
                (setq elist (append elist 
                                (list        
                                        (cons 10  pt) 
                                        (cons 40  2.0) 
                                        (cons 41  2.0) 
                                        (cons 42  0.0) 
                                ) 
                            ) 
                );setq                      
 
        );foreach 
 
        (setq elist (append elist (list (list 210 0.0 0.0 1.0)))) ;normal vector 
 
        ;create lwpolyline 
        (entmake elist) 
 
        (princ) 
)

cy956 · 发表于 2002-1-31 19:11:38

(#m_pl d70 pl_list "0" -1)
(#m_pl2 d70 plw pla pl_list "0" -1)等宽等角pl线

;;;制造 LWPOLYLINE input: d70=0开口，1闭合; plist'((p d40 d41 d42)....);
(defun #m_pl (d70 pl_list lay_pl color /)
(setq d90 (length pl_list)
pb '()
)
(foreach x pl_list
(progn
(setq pb(append pb
(list (cons 10 (nth 0 x))
(cons 40 (nth 1 x))
(cons 41 (nth 2 x))
(cons 42 (nth 3 x))
) )
) )
)
(setq en (append (list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 8 lay_pl)
(cons 100 "AcDbPolyline")
(cons 90 d90)
(cons 70 d70))
pb) )
(if (/= -1 color) (setq en (append en (list (cons 62 color)))))
(if (= nil (entmake en)) (princ "\n制造 LWPL 制造失败.") )
)
(defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb)
(setq d90 (length pl_list)
pb '()
)
(foreach x pl_list
(progn
(setq pb
(append pb
(list (cons 10 x)
(cons 40 plw)
(cons 41 plw)
(cons 42 pla)
)
)
)
)
)
(setq en (append (list
(cons 0 "LWPOLYLINE")
(cons 100 "AcDbEntity")
(cons 8 lay_pl)
(cons 100 "AcDbPolyline")
(cons 90 d90)
(cons 70 d70)
)
pb
)
)
(if (/= -1 color) (setq en (append en (list (cons 62 color)))))
(if (= nil (entmake en)) (princ "\n制造 LWPL 制造失败.") )
)

;;;制造 LWPOLYLINE  input: d70=0开口，1闭合; plist'((p d40 d41 d42)....); 
(defun #m_pl (d70 pl_list lay_pl color /) 
  (setq        d90 (length pl_list) 
        pb  '() 
  ) 
  (foreach x pl_list 
    (progn 
      (setq pb(append pb 
        (list (cons 10 (nth 0 x)) 
              (cons 40 (nth 1 x)) 
              (cons 41 (nth 2 x)) 
              (cons 42 (nth 3 x)) 
        ) ) 
    ) ) 
  ) 
  (setq        en (append (list 
        (cons 0 "LWPOLYLINE") 
        (cons 100 "AcDbEntity") 
        (cons 8 lay_pl) 
        (cons 100 "AcDbPolyline") 
        (cons 90 d90) 
        (cons 70 d70)) 
        pb) ) 
  (if (/= -1 color) (setq en (append en (list (cons 62 color))))) 
  (if (= nil (entmake en)) (princ "\n制造 LWPL 制造失败.")  ) 
) 
 
(defun #m_pl2 (d70 plw pla pl_list lay_pl color / pb) 
  (setq        d90 (length pl_list) 
        pb  '() 
  ) 
  (foreach x pl_list 
    (progn 
      (setq pb 
             (append pb 
                     (list (cons 10 x) 
                           (cons 40 plw) 
                           (cons 41 plw) 
                           (cons 42 pla) 
                     ) 
             ) 
      ) 
    ) 
  ) 
  (setq        en (append (list 
                        (cons 0 "LWPOLYLINE") 
                        (cons 100 "AcDbEntity") 
                        (cons 8 lay_pl) 
                        (cons 100 "AcDbPolyline") 
                        (cons 90 d90) 
                        (cons 70 d70) 
                      ) 
                      pb 
              ) 
  ) 
  (if (/= -1 color) (setq en (append en (list (cons 62 color))))) 
  (if (= nil (entmake en)) (princ "\n制造 LWPL 制造失败.")  ) 
)

:9 :9 :9

fengyun7000 · 发表于 2018-10-26 16:46:39

我好像还没有发帖子的权利！借贵地法个求茄子
今天遇到一个问题，一天也没想出来，郁闷！
我用entmake 创建了一个多段线实体-横断面，想加入一些注释，工程人都知道，比如里程、标高、中心点坐标
程序通过了，看着加进去了，可是再调用实体参数，发现只有标高加进去了，另外两个没进去！
什么原因，谁知道？我也没有交友的权限！
以下是代码：
(defun c:xjty ()
(setq lst '((602070.0 4.45612e+006 0) (602074.0 4.45612e+006 0) (602076.0 4.45612e+006 0) (602079.0 4.45613e+006 0) (602084.0 4.45613e+006 0) (602087.0 4.45613e+006 0) (602089.0 4.45613e+006 0) (602094.0 4.45613e+006 0) (602097.0 4.45614e+006 0) (602101.0 4.45614e+006 0) (602106.0 4.45614e+006 0) (602114.0 4.45614e+006 0) (602116.0 4.45614e+006 0) (602119.0 4.45614e+006 0) (602133.0 4.45614e+006 0) (602138.0 4.45613e+006 0) (602143.0 4.45613e+006 0) (602146.0 4.45613e+006 0) (602148.0 4.45613e+006 0) (602151.0 4.45613e+006 0) (602155.0 4.45612e+006 0) (602158.0 4.45612e+006 0) (602161.0 4.45612e+006 0) (602165.0 4.45612e+006 0) (602166.0 4.45612e+006 0)))
(setq str "licheng" bg 72.0 pt '(602114.0 4.45614e+006 0))
(entmake (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 1 str)(cons 38 bg)(cons 12 pt)(cons 90 (length lst)))
(mapcar '(lambda (pt)(cons 10 pt)) lst ))
)
);end fun
运行结果如下：
命令: XJTY
((0 . "LWPOLYLINE") (100 . "AcDbEntity") (100 . "AcDbPolyline") (1 . "licheng") (38 . 72.0) (12 602114.0 4.45614e+006 0) (90 . 25) (10 602070.0 4.45612e+006 0)
但我再用参数查看这个出来的图元，却发现，1. 和12.没有聊
STCS
/n make a choice:((-1 . <图元名: 7fffed3bce0>) (0 . "LWPOLYLINE") (330 . <图元名: 7fffed379f0>) (5 . "25E") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPolyline") (90 . 25) (70 . 0) (43 . 0.0) (38 . 72.0) (39 . 0.0) (10 602070.0 4.45612e+006) (40 . 0.0) (41 . 0.0)
谁知道怎么回事啊，我是刚刚出家学习lsp，不要笑我！

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

[文章]：entmake lwpolyline的方法...

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

相关帖子

entmake-lwpl