多条同方向的线生成一条线

twtysoi

pxr201419 发表于 2019-11-23 14:10
(defun c:j1()
    (setvar "cmdecho" 0)
    (defun xpi (j)

多谢大师帮助。如果我要把精度输入相邻两点坐标允许误差为0.01怎么改

twtysoi

pxr201419 发表于 2019-11-23 14:10
(defun c:j1()
    (setvar "cmdecho" 0)
    (defun xpi (j)

            (if (null (setq wc (getreal (strcat "输入相邻两点坐标允许误差<" (rtos wc 2 1) ">:" ))))(setq wc 1.0))把这个删了，
把上一行的1.0改成0.01这样可以吧，

王鹏_pBZlo

(defun c:jl( / ss osm i ent par p10 p101 p102 p103 p104 p11 p111 p112 p113 p114 ss1 ss2)
        (setq ss (ssget "x" (list (cons 0 "LINE"))))
        (if (not ss) (setq ss (ssadd)))
        (command "undo" "be")
        (setq osm (getvar "osmode"))
        (setvar "osmode" 0)
        (command "zoom" "O" ss "")
        (setq i -1)
        (while (setq ent (ssname ss (setq i (1+ i))))
           (if (setq par (entget ent))
              (progn        (setq p10 (trans (cdr (assoc 10 par)) 0 1))
                (setq p11 (trans (cdr (assoc 11 par)) 0 1))
                (setq p101 (list (- (car p10) 0.1) (- (cadr p10) 0.1)))
                (setq p102 (list (+ (car p10) 0.1) (- (cadr p10) 0.1)))
                (setq p103 (list (+ (car p10) 0.1) (+ (cadr p10) 0.1)))
                (setq p104 (list (- (car p10) 0.1) (+ (cadr p10) 0.1)))
                (setq p111 (list (- (car p11) 0.1) (- (cadr p11) 0.1)))
                (setq p112 (list (+ (car p11) 0.1) (- (cadr p11) 0.1)))
                (setq p113 (list (+ (car p11) 0.1) (+ (cadr p11) 0.1)))
                (setq p114 (list (- (car p11) 0.1) (+ (cadr p11) 0.1)))
                (setq ss1 (ssget "cp" (list p101 p102 p103 p104 p101) (list (cons 0 "LINE"))))
                (setq ss2 (ssget "cp" (list p111 p112 p113 p114 p111) (list (cons 0 "LINE"))))
                (command "join" ent ss1 ss2 "")
              )
           )
        )
        (command "zoom" "P")
        (setvar "osmode" osm)
        (command "undo" "e")
        (princ)
)

twtysoi

王鹏_pBZlo 发表于 2019-11-23 17:27
(defun c:jl( / ss osm i ent par p10 p101 p102 p103 p104 p11 p111 p112 p113 p114 ss1 ss2)
        (setq ss  ...

多谢王哥，很完美

twtysoi

王鹏_pBZlo 发表于 2019-11-23 17:27
(defun c:jl( / ss osm i ent par p10 p101 p102 p103 p104 p11 p111 p112 p113 p114 ss1 ss2)
        (setq ss  ...

老是报未知没事吧，

王鹏_pBZlo

见红色修改处
来自: 微社区

twtysoi

王鹏_pBZlo 发表于 2019-11-23 18:57
见红色修改处

对，已修改，

du945862399

twtysoi 发表于 2019-11-23 19:25
对，已修改，

像这样的多段线，可以合并吗

王鹏_pBZlo

du945862399 发表于 2019-12-14 10:21
像这样的多段线，可以合并吗

那是合并成多段线功能，不是直线合并功能
来自: 微社区

du945862399

王鹏_pBZlo 发表于 2019-12-14 11:52
那是合并成多段线功能，不是直线合并功能

想请教这样一个问题，我用bo命令生成这样的一个扇形的时候，如果扇形区域经过0度，90度，180度，270度的时候，生成的点的个数是6个，不经过这四个角度的时候，点的个数就是4个，而我想要的是四个点的这种，entget时候dxf为10的个数，请教一下有没有什么方法处理