找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: twtysoi

[编程申请] 多条同方向的线生成一条线

[复制链接]

已领礼包: 200个

财富等级: 日进斗金

 楼主| 发表于 2019-11-23 17:05:54 | 显示全部楼层
pxr201419 发表于 2019-11-23 14:10
(defun c:j1()
    (setvar "cmdecho" 0)
    (defun xpi (j)

多谢大师帮助。如果我要把精度输入相邻两点坐标允许误差为0.01怎么改
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 200个

财富等级: 日进斗金

 楼主| 发表于 2019-11-23 17:18:54 | 显示全部楼层
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这样可以吧,
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 586个

财富等级: 财运亨通

发表于 2019-11-23 17:27:55 | 显示全部楼层
本帖最后由 王鹏_pBZlo 于 2019-11-23 19:18 编辑

(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)
)

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 200个

财富等级: 日进斗金

 楼主| 发表于 2019-11-23 18:00:59 | 显示全部楼层
王鹏_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  ...

多谢王哥,很完美
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 200个

财富等级: 日进斗金

 楼主| 发表于 2019-11-23 18:41:21 | 显示全部楼层
王鹏_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  ...

1.jpg 老是报未知没事吧,

点评

先用zoom命令里的e 选项  发表于 2019-11-23 18:49
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 586个

财富等级: 财运亨通

发表于 2019-11-23 18:57:46 来自手机 | 显示全部楼层
本帖最后由 王鹏_pBZlo 于 2019-11-23 19:20 编辑

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

点评

对,已修改,  详情 回复 发表于 2019-11-23 19:25
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 200个

财富等级: 日进斗金

 楼主| 发表于 2019-11-23 19:25:08 | 显示全部楼层

对,已修改,
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

发表于 2019-12-14 10:21:41 | 显示全部楼层

像这样的多段线,可以合并吗
QQ图片20191214095837.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 586个

财富等级: 财运亨通

发表于 2019-12-14 11:52:17 来自手机 | 显示全部楼层
du945862399 发表于 2019-12-14 10:21
像这样的多段线,可以合并吗

那是合并成多段线功能,不是直线合并功能
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

发表于 2019-12-14 13:57:01 | 显示全部楼层
王鹏_pBZlo 发表于 2019-12-14 11:52
那是合并成多段线功能,不是直线合并功能

想请教这样一个问题,我用bo命令生成这样的一个扇形的时候,如果扇形区域经过0度,90度,180度,270度的时候,生成的点的个数是6个,不经过这四个角度的时候,点的个数就是4个,而我想要的是四个点的这种,entget时候dxf为10的个数,请教一下有没有什么方法处理
QQ图片20191214135421.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 01:06 , Processed in 0.450807 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表