.....................................

贱人 · 发表于 2004-12-4 19:14:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由贱人于 2025-4-18 07:48 编辑

.....................................

xyp1964 · 发表于 2004-12-5 11:27:39

[php]
;;;反break c:fb
(defun c:fb ()
  (vl-load-com)
  (setvar "osmode" 512)
  (setq s1  (entsel "\n选择实体 : ")
e (car s1)
pt1 (getpoint "\n选择第1点 : ")
pt2 (getpoint "\n选择第2点 : ")
pt0 (vlax-curve-getstartPoint e)
ptn (vlax-curve-getEndPoint e)
l1  (vlax-curve-getDistAtPoint (vlax-ename->vla-object e) pt1)
l2  (vlax-curve-getDistAtPoint (vlax-ename->vla-object e) pt2)
  )
  (vl-cmdf ".undo" "BE")
  (if (> l2 l1)
(progn
   (command "break" s1 "f" pt1 pt0)
   (command "break" s1 "f" pt2 ptn)
)
(progn
   (command "break" s1 "f" pt1 ptn)
   (command "break" s1 "f" pt2 pt0)
)
  )
  (vl-cmdf ".undo" "E")
)
[/php]

贱人 · 发表于 2004-12-6 11:55:15

本帖最后由贱人于 2025-4-18 07:49 编辑

.....................................

dearjdz123 · 发表于 2004-12-6 20:07:13

可以呀,鼓励,值得学习,希望再有新作品呀

xyp1964 · 发表于 2004-12-6 21:27:05

最初由贱人发布
[B]高手，很好用，谢谢

发现2 BUG
1：程序执行后自动把所有的捕捉设置都去掉了，只留下了最近点
2：这程序要选3下才行，最好象BR那样，选择物体时的那个点就作为第1点，另外，第2点可以象BR那样不一定要选在直线上 [/B]

再试：
[php]
;;;反break c:fb
;;;保留两点间的线段
;;;不适于封闭线：如CIRCLE、ELLIPSE等
(defun c:fb (/ osm s1 e pt1 pt2 pt0 ptn l1 l2)
  (vl-load-com)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 512)
  (setq pt1 (getpoint "\n选择第1点 : ")
s1  (ssget "c" pt1 pt1)
e (ssname s1 0)
pt2 (getpoint "\n选择第2点 : ")
pt0 (vlax-curve-getstartPoint e)
ptn (vlax-curve-getEndPoint e)
l1  (vlax-curve-getDistAtPoint (vlax-ename->vla-object e) pt1)
l2  (vlax-curve-getDistAtPoint (vlax-ename->vla-object e) pt2)
  )
  (setvar "osmode" 0)
  (vl-cmdf ".undo" "BE")
  (setq s (cons e (list pt1)))
  (if (> l2 l1)
(progn
   (command "break" s "f" pt1 pt0)
   (setq s1 (ssget "c" pt2 pt2)
      e  (ssname s1 0)
      s  (cons e (list pt1))
   )
   (command "break" s "f" pt2 ptn)
)
(progn
   (command "break" s "f" pt1 ptn)
   (setq s1 (ssget "c" pt2 pt2)
      e  (ssname s1 0)
      s  (cons e (list pt1))
   )
   (command "break" s "f" pt2 pt0)
)
  )
  (vl-cmdf ".undo" "E")
  (setvar "osmode" osm)
  (redraw)
  (princ)
)
[/php]

xxxyzxx · 发表于 2004-12-7 09:44:58

恩，老大的程序还是好啊，经测试挺满意的

贱人 · 发表于 2004-12-10 13:52:11

本帖最后由贱人于 2025-4-18 07:49 编辑

.....................................

aeo · 发表于 2004-12-10 23:19:54

里面两句改
l1 (vlax-curve-getDistAtPoint e(vlax-curve-getClosestPointTo e pt1) )
l2 (vlax-curve-getDistAtPoint e(vlax-curve-getClosestPointTo e pt2) )

比较好一点

贱人 · 发表于 2004-12-13 17:50:50

本帖最后由贱人于 2025-4-18 07:50 编辑

.....................................

xyp1964 · 发表于 2004-12-13 23:16:36

最初由贱人发布
[B][QUOTE]最初由 aeo 发布
[B]里面两句改
l1 (vlax-curve-getDistAtPoint e(vlax-curve-getClosestPointTo e pt1) )
l2 (vlax-curve-getDistAtPoint e(vlax-curve-getClosestPointTo e pt2) )

比较好?.. [/B]

都和“break”一样，那就是“break”了！呵呵……

贱人 · 发表于 2004-12-14 17:11:03

本帖最后由贱人于 2025-4-18 07:50 编辑

.....................................

ydf7332462 · 发表于 2004-12-14 20:31:16

哪里用着?

xyp1964 · 发表于 2004-12-20 14:02:42

最初由 ydf7332462 发布
[B]哪里用着? [/B]

用了“osnap”函数就不用改变“osmode”的值了。
提示用语与“break”的有少许差别，再试：
[php]
;;;反break c:fb
;;;保留两点间的线段
;;;不适于封闭线：如CIRCLE、ELLIPSE等
(defun c:test011 (/ osm s1 e pt1 pt2 pt0 ptn l1 l2)
  (vl-load-com)
  (setq osm (getvar "osmode"))
  ;(setvar "osmode" 512)
  (setq ;;pt1 (getpoint "\n选择第1点 : ")
s1  (entsel "\n选择对象 : ")
e  (car s1)
pt1 (osnap (cadr s1) "near")
;;s1  (ssget "c" pt1 pt1)
;;e (ssname s1 0)
pt2 (osnap (getpoint "\n指定第二个打断点 : ")"near")
pt0 (vlax-curve-getstartPoint e)
ptn (vlax-curve-getEndPoint e)
l1  (vlax-curve-getDistAtPoint (vlax-ename->vla-object e) pt1)
l2  (vlax-curve-getDistAtPoint (vlax-ename->vla-object e) pt2)
  )
  (setvar "osmode" 0)
  (vl-cmdf ".undo" "BE")
  (setq s (cons e (list pt1)))
  (if (> l2 l1)
(progn
   (command "break" s "f" pt1 pt0)
   (setq s1 (ssget "c" pt2 pt2)
      e  (ssname s1 0)
      s  (cons e (list pt1))
   )
   (command "break" s "f" pt2 ptn)
)
(progn
   (command "break" s "f" pt1 ptn)
   (setq s1 (ssget "c" pt2 pt2)
      e  (ssname s1 0)
      s  (cons e (list pt1))
   )
   (command "break" s "f" pt2 pt0)
)
  )
  (redraw)
  (vl-cmdf ".undo" "E")
  (setvar "osmode" osm)
  (princ)
)
[/php]

ss1025 · 发表于 2004-12-20 17:31:54

1964兄：我试了，还是达不到贱人兄想要的那样的啊。捕捉还是会丢的。

xyp1964 · 发表于 2004-12-20 19:59:38

最初由 ss1025 发布
[B]1964兄：我试了，还是达不到贱人兄想要的那样的啊。捕捉还是会丢的。 [/B]

不应该丢捕捉设置。
再试试吧！
贱人是否还有问题？

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

.....................................

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块