lsp如何实现以各自的中点画圆

逐月飞鸿 · 发表于 2006-12-22 08:53:00

以各自的中点画圆怎样用lisp写如下程序，等待高手出手选择一些图元后，执行一个命令后，其中的线段长度≥50cm的线段，则以各自中点（中点重复的仅画一次）画一个半径为1cm的圆。搞了半天没有搞出来，只好请高手赐教！先谢了

highflybir · 发表于 2006-12-22 11:55:00

本帖最后由作者于 2006-12-22 11:57:51 编辑

(defun C:test (/ oldmode oce ss en i ssl)
(setq oldmode (getvar "osmode"))
(setq oce (getvar "cmdecho"))
(command ".ucs" "W")
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(if (setq ss (ssget))
(progn
(setq ssl (sslength ss) i 0)
(repeat ssl
(setq en (ssname ss i))
(judge en)
(setq i (1+ i))
)
)
)
(command ".ucs" "p")
(setvar "cmdecho" oldmode)
(setvar "cmdecho" oce)
(princ)
)
(defun judge (ename / elist p1 p2 l midp12)
(setq elist (entget ename))
(if (setq p1 (cdr (assoc 10 elist))
p2 (cdr (assoc 11 elist))
)
(progn
(setq l (distance p1 p2))
(setq midp12 (polar p1 (angle p1 p2) (* l 0.5)))
(if (>= l 500.0)
(entmake
(append
'((0 . "CIRCLE")(100 . "AcDbEntity")(100 . "AcDbCircle"))
(list (cons 10 midp12))
(list (cons 40 10.0))
)
)
)
)
)
)

没什么困难的啊，编了一个看适合不(注意是毫米为单位的），没有考虑重复和错误的情况，请自行检查。

逐月飞鸿 · 发表于 2006-12-22 14:12:00

我试了试，怎么不行啊，能不能吧重复的只花一次啊highflybir大侠！！

highflybir · 发表于 2006-12-22 15:16:00

关于消重的问题，你可以查阅相关的lisp程序。（网站上有很多的这个程序，但是有效算法的不多，规模不大的话就用他们吧！）

如果没有的话，直接用天正的消除重元功能。

yp9819 · 发表于 2020-5-16 19:56:44

highflybir 发表于 2006-12-22 11:55
没什么困难的啊，编了一个看适合不(注意是毫米为单位的），没有考虑重复和错误的情况，请自行检查。

高飞老师您好，您这个程序能适用LINE，但是不能适用于Pline，能不能修改下，既能适用于LINE，又能适用于PLINE，同时圆太小，半径最好自己设置输入。谢谢

lee50310 · 发表于 2020-5-19 13:30:18

本帖最后由 lee50310 于 2020-5-19 13:36 编辑

但是不能适用于Pline，能不能修改下，既能适用于LINE，又能适用于PLINE，同时圆太小，半径最好自己设置输入。谢谢

   執行指令: tt
         1.支援線型長度: line,pline,spline ,arc
         2.畫圆半徑可輸入
         3.中點長度畫圓限制條件可輸入
         4.有重消功能  (注意: 重消圓半徑必須一致才可)

李钊伟2012 · 发表于 2020-5-19 16:12:18

把多段线先移开，炸成直线，运行，然后把重新生成多段线

lee50310 · 发表于 2020-5-19 18:31:38

本帖最后由 lee50310 于 2020-5-19 18:42 编辑

把多段线先移开，炸成直线，运行，然后把重新生成多段

這也是一個方法,但還有更好更快的方式使用高級函數就可解決了

前生 · 发表于 2020-5-20 02:54:28

(setq e (vlax-curve-getDistAtParam en (vlax-curve-getEndParam en)))
(setq p0 (vlax-curve-getendpoint (VLAX-Ename->VLA-Object en))
      p2 (vlax-curve-getstartpoint (VLAX-Ename->VLA-Object en))
      p1 (vlax-curve-getPointAtDist en (* e 0.5))
   )
P1为中点。
批量时，P1列表。重复的点忽略。
以列表点生成园。

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

lsp如何实现以各自的中点画圆

本帖子中包含更多资源

浏览过的版块