初学写的一个延长直线和圆弧的功能，还不完善，望高手能指点

hushiyong11 · 发表于 2021-9-8 16:54:23

;;;代码还不完善，有两个问题一直没解决：
;;;1、不能批量完成操作
;;;2、当线条距离很近时有的线会延长很多，有的不延长

(defun c:dd1 ()
  (setvar "CMDECHO" 0)
  (setq os (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setq qq (ssget '((0 . "*line,arc"))))
  (setq n 0)
  (if (= qq nil)
(princ "没有选择任何相符元素！")
(if (= "LINE" (cdr (assoc 0 (entget (ssname qq n)))))
   (progn
(setq bb (sslength qq))
(repeat bb
   (setq p1 (cdr (assoc 10 (entget (ssname qq n)))))
   (setq p2 (cdr (assoc 11 (entget (ssname qq n)))))
   (command "_.LENGTHEN" "de" 100 p1 p2 "")
   (setq n (1+ n))
)
   )
   (if (= "ARC" (cdr (assoc 0 (entget (ssname qq n)))))
(progn
   (setq bb (sslength qq))
   (repeat bb
      (setq r (cdr (assoc 40 (entget (ssname qq n)))))
      (setq rad1 (cdr (assoc 50 (entget (ssname qq n)))))
      (setq cenx (cadr (assoc 10 (entget (ssname qq n)))))
      (setq p1x (+ (* (cos rad1) r) cenx))
      (setq ceny (caddr (assoc 10 (entget (ssname qq n)))))
      (setq p1y (+ (* (sin rad1) r) ceny))
      (setq p1 (list p1x p1y))
      (setq rad1 (cdr (assoc 51 (entget (ssname qq n)))))
      (setq p2x (+ (* (cos rad1) r) cenx))
      (setq p2y (+ (* (sin rad1) r) ceny))
      (setq p2 (list p2x p2y))
      (command "_.LENGTHEN" "de" 100 p1 p2 "")
      (setq n (1+ n))
   )
)
   )
)
  )
  (setvar "OSMODE" os)
  (setq qq nil)
  (princ)
)

夏生生 · 发表于 2021-9-9 10:01:40

稍微改了一下

(defun c:lsc (/ os l ss n en pt1 pt2)
(setvar "CMDECHO" 0)
(setq os (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq l (getreal "\n伸长量:"))
(setq ss (ssget '((0 . "lwpolyline,line,arc"))))
(repeat (setq n (sslength ss))
(setq en (ssname ss (setq n (1- n)))
pt1 (vlax-curve-getstartpoint en)
pt2 (vlax-curve-getendpoint en)
)
(command "lengthen" "de" l (list en pt1) (list en pt2) "")
)
(setvar "OSMODE" os)
)

gaics · 发表于 2021-9-9 08:47:26

本帖最后由 gaics 于 2021-9-9 09:23 编辑

(defun c:dd1 (/ os qq n p1 p2 rad1 cenx ceny p1x p1y p2x p2y)
  (setvar "CMDECHO" 0)
  (setq os (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setq qq (ssget '((0 . "*line,arc"))))
  (setq n 0)
  (if (= qq nil)
(princ "没有选择任何相符元素！")
(repeat (sslength qq)
   (if (= "LINE" (cdr (assoc 0 (entget (ssname qq n)))))
      (progn (setq p1 (cdr (assoc 10 (entget (ssname qq n)))))
            (setq p2 (cdr (assoc 11 (entget (ssname qq n)))))
            (command "_.LENGTHEN" "de" 100 (list (ssname qq n) p1) "")
            (command "_.LENGTHEN" "de" 100 (list (ssname qq n) p2) "")
      )
   )
   (if (= "ARC" (cdr (assoc 0 (entget (ssname qq n)))))
      (progn
      (setq r (cdr (assoc 40 (entget (ssname qq n)))))
      (setq rad1 (cdr (assoc 50 (entget (ssname qq n)))))
      (setq cenx (cadr (assoc 10 (entget (ssname qq n)))))
      (setq p1x (+ (* (cos rad1) r) cenx))
      (setq ceny (caddr (assoc 10 (entget (ssname qq n)))))
      (setq p1y (+ (* (sin rad1) r) ceny))
      (setq p1 (list p1x p1y))
      (setq rad1 (cdr (assoc 51 (entget (ssname qq n)))))
      (setq p2x (+ (* (cos rad1) r) cenx))
      (setq p2y (+ (* (sin rad1) r) ceny))
      (setq p2 (list p2x p2y))
      (command "_.LENGTHEN" "de" 100 p1 p2 "")
      )
   )
   (setq n (1+ n))
)
  )
  (setvar "OSMODE" os)
  (princ)
)

这里改了一下：
(command "_.LENGTHEN" "de" 100  p1 p2 "")改为：
(command "_.LENGTHEN" "de" 100 (list (ssname qq n) p1) "")
(command "_.LENGTHEN" "de" 100 (list (ssname qq n) p2) "")
或：
(command "_.LENGTHEN" "de" 100 (list (ssname qq n) p1)  (list (ssname qq n) p2)  "")

sunny_8848 · 发表于 2021-9-9 09:50:05

可以选择延长左边或右边，延长的距离要能输入就方便了

sunny_8848 · 发表于 2021-9-9 11:02:44

本帖最后由 sunny_8848 于 2021-9-9 11:04 编辑

sunny_8848 发表于 2021-9-9 09:50
可以选择延长左边或右边，延长的距离要能输入就方便了

把直线的中点放到原点，延长直线，就会发现是两端各延长50（实际上图形都有其位置的，延长的这个数据还不能输入）

hushiyong11 · 发表于 2021-9-9 11:35:02

gaics 发表于 2021-9-9 08:47
(defun c:dd1 (/ os qq n p1 p2 rad1 cenx ceny p1x p1y p2x p2y)
(setvar "CMDECHO" 0)
(setq os (g ...

谢谢您的指点，已试用，可完美运行。。

hushiyong11 · 发表于 2021-9-9 11:41:16

夏生生发表于 2021-9-9 10:01
稍微改了一下

您这哪是稍微修改啊，简直脱胎换骨，代码简化了且运行完美，谢谢大神

hushiyong11 · 发表于 2021-9-9 11:42:42

sunny_8848 发表于 2021-9-9 09:50
可以选择延长左边或右边，延长的距离要能输入就方便了

也谢谢小姐姐的指点

xj6019 · 发表于 2021-9-9 14:25:52

高手，一群高手

甜兮兮 · 发表于 2021-9-9 20:53:26

夏生生发表于 2021-9-9 10:01
稍微改了一下

能不能在增加个批量一边延长也支持和保存输入上一次数值这样更加智能化不知大佬可否改下

账号		自动登录	找回密码
密码			注册

[源码] 初学写的一个延长直线和圆弧的功能，还不完善，望高手能指点

点评

点评