明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 204|回复: 3

点选1#色线的一端,往选定方向偏移出两条虚线(偏移距离分别为1000与2500),得到6...

[复制链接]
发表于 2018-3-7 20:07 | 显示全部楼层 |阅读模式
1明经币
点选1#色线的一端,往选定方向偏移出两条虚线(偏移距离分别为1000与2500),得到6#色的线
附件: 您需要 登录 才可以下载或查看,没有帐号?注册

最佳答案

查看完整内容

试一试 (defun c:pylj ( / np2 zdpt sd entn qd zd qd2 zd2 dx) (vl-load-com) (setvar 'cmdecho 0) (setq np2 (entsel)) (setq zdpt (cadr np2)) (setq sd (getpoint "\nSide to offset:")) (foreach dis '(1000 2500) (command "offset" dis np2 sd "") (setq entn (cons (entlast)entn)) ) (setq qd (vlax-curve-getstartpoint (car entn))) (setq zd (vlax-curve-getendpoint (car entn))) (se ...
发表于 2018-3-7 20:07 | 显示全部楼层
试一试
(defun c:pylj ( / np2 zdpt sd entn qd zd qd2 zd2 dx)
(vl-load-com)
(setvar 'cmdecho 0)
(setq np2 (entsel))
(setq zdpt (cadr np2))
(setq sd (getpoint "\nSide to offset:"))
(foreach dis '(1000 2500)
      (command "offset" dis np2 sd "")
      (setq entn (cons (entlast)entn))
    )

(setq qd (vlax-curve-getstartpoint (car entn)))
(setq zd (vlax-curve-getendpoint (car entn)))
(setq qd2 (vlax-curve-getstartpoint (cadr entn)))
(setq zd2 (vlax-curve-getendpoint (cadr entn)))
(setq dx (ptsort3 (list qd zd qd2 zd2) zdpt))
(entmake (list '(0 . "LINE")(cons 10 (cadr dx))(cons 11 (car dx))'(62 . 6)))
(foreach ent entn (entdel ent))
(setvar 'cmdecho 1)
(princ)
)


(defun ptsort3 (ptlst  pt / d ptjuli dsort)
  (foreach n ptlst
    (setq d (distance n pt))
    (setq ptjuli (cons(list d n)  ptjuli))
  )
(setq dsort (vl-sort  ptjuli '(lambda(x y)(< (car x) (car y) ) ) ))
(list (cadr(car dsort)) (cadr(last dsort)))
)
回复

使用道具 举报

发表于 2018-3-10 12:34 | 显示全部楼层
选择线,
offset到你指定的方向,2次
每次(entlast),取实体明,求二个端点。
线生成
回复

使用道具 举报

 楼主| 发表于 2018-3-11 15:22 | 显示全部楼层
xiang19751218 发表于 2018-3-11 10:33
试一试
(defun c:pylj ( / np2 zdpt sd entn qd zd qd2 zd2 dx)
(vl-load-com)

谢谢xiang19751218,cad2012测试OK.
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-6-21 20:00 , Processed in 0.179222 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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