cad引出线段lisp_给定起终点，如何提取线段连线关系表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区

(defun c:tt (/ l i s p e r a d o )

(setq r 2.0 ) ；设定字体比列参数 1:2

(if (and (setq e (car (entsel "\n拾取多义线。。 ")))

(progn (redraw e 3)

(princ "\n选取邻近 RQ#文字。。 ")

(setq s (ssget '((0 . "TEXT") (1 . "*RQ*"))))

)

(setq l (mapcar 'cdr

(vl-remove nil

(vl-sort (mapcar '(lambda (x)

(setq o (vlax-ename->vla-object x)

p (vlax-get o 'InsertionPoint)

a (vlax-curve-getclosestpointto e p)

d (distance p a)

)

(if (<= d (* (vla-get-Height o) r))

(cons (vlax-curve-getdistatpoint e a) (vlax-get o 'TextString))

)

(vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))

)

'(lambda (a b) (< (car a) (car b)))

)

(textscr)

)

cad引出线段lisp_给定起终点，如何提取线段连线关系表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

lisp 首尾节点闭合_首尾相连的两条线合成线图元列表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
这是G版的代码...但你要的似乎首尾相连且共线才连接... (defun c:tt (/ gxl-Sel-ReDrawSel gxl-Sel-SSsub gxl-Sel-SSJoin gxl-sel- ...
方孔分段的lisp_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
lisp调用qleader端点_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
cad坐标归零lisp_Z轴归零源码说明 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
2 支持35种图元的Z轴归零序号目标图元 CAD数据库图元名 (ObjectName) 函数名 1 2D多段线 AcDb2dP ...
cad线段总和lisp_求一个线段长度总和与生成文本 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
像这种 ;;;;;计算面积,周长.显视在图面上 (defun C:am (/ s text1 text2 ss l i totalarea ename obj insertpt insertpt1) ...
块内拉升lisp_多重插入块的炸开问题？ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
很多个cad文件,被别人加了密,每个cad文件都生成了很多个多重插入块,在论坛找了个xxi的程序,可以炸开多重插入块,但是,文件太多,块也太多,不能一个一个炸,而且,每个多重插入块执行一下xxi命令之 ...
cad四边形展开lisp_批量绘制四边形 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;试用以下程序 (defun c:test() (setq bcsjb '(("A1" 9549.31 6977.53 7180.75 7155.97 11015.11) (&qu ...
cad抛物线曲线lisp_曲线的转弯半径和曲率 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;;============================================================= ;;; 一般平面曲线参数方程的曲率离心公式 ;;; 功能: 获取曲线上 ...
cad偏移后自动变色lisp_高手帮忙修改，批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;用LISP实现将PL环向内或向外偏移 ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654 (defun C:TEE ( / cu ...

cad引出线段lisp_给定起终点，如何提取线段连线关系表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

cad引出线段lisp_给定起终点，如何提取线段连线关系表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

最新文章

热门文章