如何在直线两段生成小点点

世人皆醉

问题如图所示，求大佬告知！！！

mituzhe

重新复制了一遍代码，顺便了解了怎么添加代码区域，哈哈

1. ;-------------------------------------------------------------------------------------------------
   
2. ;直线端点标记
   
3. (defun c:tt1 (/ ang line_ctrl_pts lyr pt1 pt2 ss_line)
   
4.   (setq ss_line (ssget '((0 . "LWPOLYLINE,LINE"))))
   
5.   (foreach ent (xyp-Ss2List ss_line)
   
6.     (setq line_ctrl_pts (gd-getCtrlPt ent)
   
7.           lyr           (vla-get-layer (vlax-ename->vla-object ent))
   
8.     )
   
9.     (if (wcmatch (cdr (assoc 0 (entget ent))) "*POLYLINE")
   
10.       (progn
    
11.         ; (setq line_ctrl_pts (mapcar '(lambda (pt) (append pt '(0.0)))
    
12.         ;                             line_ctrl_pts
    
13.         ;                     )
    
14.         ; )
    
15.         (setq line_ctrl_pts (mapcar 'list line_ctrl_pts (cdr line_ctrl_pts)))
    
16.       )
    
17.     )
    
18.     (foreach pts line_ctrl_pts
    
19.       (setq pt1 (nth 0 pts)
    
20.             pt2 (nth 1 pts)
    
21.             ang (angle pt1 pt2)
    
22.       )
    
23.       (entmake
    
24.         (mapcar 'cons '(0 8 62 10 11) (list "LINE" lyr 2 pt1 (polar pt1 ang 1)))
    
25.       )
    
26.       (entmake
    
27.         (mapcar 'cons
    
28.                 '(0 8 62 10 11)
    
29.                 (list "LINE" lyr 2 pt2 (polar pt2 (+ ang PI) 1))
    
30.         )
    
31.       )
    
32.     )
    
33. 
    
34.     (entdel ent)
    
35.   )
    
36.   (princ)
    
37. )
    
38. 
    
39. (defun xyp-Ss2List (ss / i s1 lst)
    
40.   (and ss
    
41.        (setq i -1)
    
42.        (while (setq s1 (ssname ss (setq i (1+ i))))
    
43.          (setq lst (cons s1 lst))
    
44.        )
    
45.   )
    
46.   lst
    
47. )
    
48. (defun gd-getCtrlPt (ent / ctrlPt_lst)
    
49.   ; (setq ctrlPt_lst nil)
    
50. 
    
51.   (setq ctrlPt_lst (append
    
52.                      (vl-remove-if-not
    
53.                        '(lambda (x) (or (= 11 (car x)) (= 10 (car x))))
    
54.                        (entget ent)
    
55.                      )
    
56.                      ctrlPt_lst
    
57.                    )
    
58.   )
    
59.   ; (print ctrlPt_lst)
    
60. 
    
61.   (mapcar 'cdr ctrlPt_lst)
    
62. )

;-------------------------------------------------------------------------------------------------<br /> ;直线端点标记<br /> (defun c:tt1 (/ ang line_ctrl_pts lyr pt1 pt2 ss_line) <br />   (setq ss_line (ssget '((0 . "LWPOLYLINE,LINE"))))<br />   (foreach ent (xyp-Ss2List ss_line) <br />     (setq line_ctrl_pts (gd-getCtrlPt ent)<br />           lyr           (vla-get-layer (vlax-ename->vla-object ent))<br />     )<br />     (if (wcmatch (cdr (assoc 0 (entget ent))) "*POLYLINE") <br />       (progn <br />         ; (setq line_ctrl_pts (mapcar '(lambda (pt) (append pt '(0.0))) <br />         ;                             line_ctrl_pts<br />         ;                     )<br />         ; )<br />         (setq line_ctrl_pts (mapcar 'list line_ctrl_pts (cdr line_ctrl_pts)))<br />       )<br />     )<br />     (foreach pts line_ctrl_pts <br />       (setq pt1 (nth 0 pts)<br />             pt2 (nth 1 pts)<br />             ang (angle pt1 pt2)<br />       )<br />       (entmake <br />         (mapcar 'cons '(0 8 62 10 11) (list "LINE" lyr 2 pt1 (polar pt1 ang 1)))<br />       )<br />       (entmake <br />         (mapcar 'cons <br />                 '(0 8 62 10 11)<br />                 (list "LINE" lyr 2 pt2 (polar pt2 (+ ang PI) 1))<br />         )<br />       )<br />     )<br /> <br />     (entdel ent)<br />   )<br />   (princ)<br /> )<br /> <br /> (defun xyp-Ss2List (ss / i s1 lst) <br />   (and ss <br />        (setq i -1)<br />        (while (setq s1 (ssname ss (setq i (1+ i)))) <br />          (setq lst (cons s1 lst))<br />        )<br />   )<br />   lst<br /> )<br /> (defun gd-getCtrlPt (ent / ctrlPt_lst) <br />   ; (setq ctrlPt_lst nil)<br /> <br />   (setq ctrlPt_lst (append <br />                      (vl-remove-if-not <br />                        '(lambda (x) (or (= 11 (car x)) (= 10 (car x))))<br />                        (entget ent)<br />                      )<br />                      ctrlPt_lst<br />                    )<br />   )<br />   ; (print ctrlPt_lst)<br /> <br />   (mapcar 'cdr ctrlPt_lst)<br /> )

llsheng_73

点是没有方向的，你要的小点点是不是一个长度为1mm的多段线或者块参照，起点是直线的端点，止点指向另一端？

guosheyang

你这个 先求端点坐标   然后 polar   求另一点  然后画直线  改为黄色   计算两次即可  

世人皆醉

llsheng_73 发表于 2022-8-5 11:23
点是没有方向的，你要的小点点是不是一个长度为1mm的多段线或者块参照，起点是直线的端点，止点指向另一端 ...

就是个一毫米的线，对的，就是起点是直线的端点，指点是指向另一端

xj6019

你这是要弄打标线吗？两个端部不需要先往内部缩进个0.5后 再画1mm的线吗？

mituzhe

;-------------------------------------------------------------------------------------------------
;直线端点标记
(defun c:tt1 (/ ang line_ctrl_pts pt1 pt2 ss_line)
  (setq ss_line (ssget  '((0 . "*LINE"))))
  (foreach ent (xyp-Ss2List ss_line)
    (setq line_ctrl_pts (gd-getCtrlPt ent)
          pt1           (nth 0 line_ctrl_pts)
          pt2           (nth 1 line_ctrl_pts)
          ang           (angle pt1 pt2)
    )
    (entmake
      (list (cons 0 "LINE")
            (cons 62 2)
            (cons 10 pt1)
            (cons 11 (polar pt1 ang 1))
      )
    )
    (entmake
      (list (cons 0 "LINE") (cons 62 2) (cons 10 pt2) (cons 11 (polar pt2 (+ ang PI) 1)))
    )
    (entdel ent)
  )
  (princ)
)

(defun xyp-Ss2List (ss / i s1 lst)
  (and ss
       (setq i -1)
       (while (setq s1 (ssname ss (setq i (1+ i))))
         (setq lst (cons s1 lst))
       )
  )
  lst
)
(defun gd-getCtrlPt (ent / ctrlPt_lst)
  ; (setq ctrlPt_lst nil)
  
  (setq ctrlPt_lst (append
                        (vl-remove-if-not
                          '(lambda (x) (or (= 11 (car x)) (= 10 (car x))))
                          (entget ent)
                        )
                        ctrlPt_lst
                      )
  )
  ; (print ctrlPt_lst)
  
  (mapcar 'cdr ctrlPt_lst)
)

世人皆醉

xj6019 发表于 2022-8-5 15:05
你这是要弄打标线吗？两个端部不需要先往内部缩进个0.5后 再画1mm的线吗？

不需要的，直接从端点尾部开始的

mituzhe

mituzhe 发表于 2022-8-5 15:07
;----------------------------------------------------------------------------------------------- ...

试试这个能不能满足你的要求

mituzhe

其实如果只是想要标记顶点位置。可以单独画 点（POINT）图元，可以标记出所有顶点。目前我这个代码，对多段线折线，只能计算第一段，但如果标记点，稍微修改能标记所有位置