明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 5328|回复: 33

等分辅助线,构造线

  [复制链接]
发表于 2019-7-17 21:39 | 显示全部楼层 |阅读模式
本帖最后由 纵横八方 于 2022-10-18 14:07 编辑

;;; 上次看到论坛里有人需要,忘记发了,一段简单的command

(defun c:fz( / n p1 p2 ang1 p0 m)
(setq p1 (getpoint "\n点取第一点:"))
(setq p2 (getpoint p1 "\n点取第二点:"))
(setq ang1 (angle p1 p2))
(setq n (getint "\n输入等分数:"))
(if (null n)  (setq n 2))
(setq p0 (polar p1 ang1 (/ (distance p1 p2) n)))  
  (setq m 0)
  (repeat (- n 1)  
  (command "xline" "b" "non" p0 "non" p1 "non" p2 "")
  (setq m (+ m 1))
  (setq p0 (polar p0 ang1 (/ (distance p1 p2) n)))
  )
  )

;在分享一个平行等分的
(defun c:PXDF(/ i n obj1 obj2 pl1 pl1lst pl2 pl2lst pl3 pl4 pt1 pt2 u v)
(if (and (setq obj1 (entsel "点取直线段1:") obj2 (entsel "点取直线段2:")))
(progn
(setq pl1lst (HH:PickSegEndPt (car obj1) (cadr obj1)))
(setq pl2lst (HH:PickSegEndPt (car obj2) (cadr obj2)))
(setq pl1 (car pl1lst) pl2 (cadr pl1lst))
(setq pl3 (car pl2lst) pl4 (cadr pl2lst))
(if (inters pl1 pl3 pl2 pl4) (mapcar 'set '(pl1 pl2 pl3 pl4) (LIST pl1 pl2 pl4 pl3)))
(SETQ U (MAPCAR '- PL3 PL1));;
(SETQ V (MAPCAR '- PL4 PL2));;
(setq n (getint "\n输入等分数:"))
(setq i 1)
(repeat (- N 1)
(SETQ PT1 (MAPCAR '+ pL1 (MAT:vxs U (* i (/ 1.0 N)))));;
(SETQ PT2 (MAPCAR '+ pL2 (MAT:vxs V (* i (/ 1.0 N)))));;
(entmake (list '(0 . "line")(cons 62 6)(cons 10 PT1)(cons 11 PT2)))
(setq i (1+ i))
)
)
)
(princ)
)

(defun MAT:vxs ( v s )
  (mapcar (function (lambda ( n ) (* n s))) v)
)

(defun HH:PickSegEndPt (obj p / n pp)
(cond
        ((= (cdr (assoc 0 (entget obj))) "LWPOLYLINE")
  (setq pp (vlax-curve-getclosestpointto obj (trans p 1 0))
n  (fix (vlax-curve-getparamatpoint obj pp))
  )
  (list (vlax-curve-getPointAtParam obj n)
(vlax-curve-getPointAtParam obj (1+ n))
  )
)
((= (cdr (assoc 0 (entget obj))) "LINE")
         (list
                 (cdr (assoc 10 (entget obj)))
                 (cdr (assoc 11 (entget obj)))
         )
         )
)
)


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

大神的很好用,如果可以增加一个输入尺寸等分就好了,就是尺寸输入完后,如果两端的距离相除不能等分,就取大约值等分  发表于 2021-5-18 00:42
 楼主| 发表于 2022-10-18 14:00 | 显示全部楼层
下文没句号。 发表于 2022-10-17 20:37
楼主改好了没,发给我,谢谢

你需要的是平行等分吗 ,已在首页更新
回复 支持 2 反对 0

使用道具 举报

发表于 2022-8-2 08:50 | 显示全部楼层
  1. (defun c:de( / n p1 p2 ang1 p0 m)

  2. (setq p1 (getpoint "\n点取第一点:"))

  3. (setq p2 (getpoint p1 "\n点取第二点:"))

  4. (setq ang1 (angle p1 p2))

  5. (setq n (getint "\n输入等分数:"))

  6. (if (null n)  (setq n 2))

  7. (setq p0 (polar p1 ang1 (/ (distance p1 p2) n)))  

  8.   (setq m 0)

  9.   (repeat (- n 1)  

  10.   (entmake (list '(0 . "POINT") (cons 10 p0)))

  11.   (setq m (+ m 1))

  12.   (setq p0 (polar p0 ang1 (/ (distance p1 p2) n)))

  13.   )

  14.   )
我常用的是点,随手改的。
发表于 2019-11-1 10:33 | 显示全部楼层
ketxu 发表于 2019-10-31 18:20
Why don't you use Divide or Measure built-in command  ?

不是那个意思,那两个内置命令是可以用的,不过和我想像的有点差别
发表于 2019-10-17 16:11 | 显示全部楼层
你这个只能平分两点间的,能帮忙写一个平分多段线的LSP么???
 楼主| 发表于 2019-10-17 16:55 来自手机 | 显示全部楼层
多段线不是直接div或me吗
发表于 2019-10-31 18:20 | 显示全部楼层
mpk023 发表于 2019-10-17 16:11
你这个只能平分两点间的,能帮忙写一个平分多段线的LSP么???

Why don't you use Divide or Measure built-in command  ?
发表于 2019-11-4 01:34 | 显示全部楼层
感谢分享,下载备用
发表于 2019-11-8 16:35 | 显示全部楼层
楼主厉害,谢谢源码,有没有能entmake出手的大神啊
发表于 2019-11-11 15:20 | 显示全部楼层
谢谢楼主分享。。。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 21:12 , Processed in 0.509127 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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