cad lisp程序标注避让_CAD lisp 下面代码如何修改才能使标注位置离开基准点

defunc:k(/oldcmdssss1icenpp1pp2iip1p2ll)(princ"\n选取需要标注的孔:")(setqoldcmd(getvar"cmdecho"))(setvar"cmdecho"0)(setqss(ssget'((0."insert"))))(setqss1'())(setqi0)(repe...

defun c:k (/ oldcmd ss ss1 i cen pp1 pp2 ii p1 p2 ll)

(princ "\n选取需要标注的孔: ")

(setq oldcmd (getvar "cmdecho"))

(setvar "cmdecho" 0)

(setq ss (ssget '((0 . "insert"))))

(setq ss1 '())

(setq i 0)

(repeat (sslength ss)

(setq cen (cdr (assoc 10 (entget (ssname ss i)))))

(setq ss1 (cons cen ss1))

(setq i (1+ i))

)

(setq ss1

(vl-sort ;Vl-sort 排序

ss1

'(lambda (pp1 pp2)

(if (< (abs (- (cadr pp1) (cadr pp2))) 0.01)

(< (car pp1) (car pp2))

(< (cadr pp1) (cadr pp2))

)

(setq ii 0)

(repeat (- (sslength ss) 1)

(setq p1 (nth ii ss1))

(setq p2 (nth (1+ ii) ss1))

(setq ll (rtos (* 1000 (distance p1 p2)) 2 0))

(if (> (* 1000 (distance p1 p2)) 1) ;小于1则不标注

(progn

(command "dimaligned" p1 p2 "t" "" p1)

(princ

(strcat "\n标注孔距=" (rtos (* 1000 (distance p1 p2)) 2 2)) ;标注文字

)

(setq ii (1+ ii))

)

(setvar "cmdecho" oldcmd)

(prin1)

)

展开

cad lisp程序标注避让_CAD lisp 下面代码如何修改才能使标注位置离开基准点相关推荐

第2章创建你的第一个 LISP 程序 Creating Your First Lisp Progr
2019独角兽企业重金招聘Python工程师标准>>> 第2章创建你的第一个 LISP 程序 Creating Your First Lisp Program 翻译者:FreeBl ...
挡土墙lisp程序_基于Visual LISP与C#的水工挡土墙计算软件开发
摘要:根据水工挡土墙的相关规范,分析水工挡土墙设计中的计算过程,利用visual lisp读取河道挡土墙断面中墙身.底板.水位等图元,提取几何信息,再运用C#编程计算得出挡墙的抗滑稳定安全系数.抗倾 ...
lisp 中望cad 选项卡_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD的lisp编辑器_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
中望CAD调用lisp在哪_CAD应用技巧：中望CAD中加载LISP程序
CAD的出现,给我们的绘图工作带来了很大的便利,而随着工作的不断细化,广大设计师对CAD的要求也在不断的增强,有些工作中需要的功能,在CAD软件中并没有提供,在这样的背景下,直接导致了LISP程序的产 ...
[Lisp]用 sbcl, asdf 和 cl-launch 编写可分发的 lisp 程序 -- 转载
转载自:http://tianchunbinghe.blog.163.com/blog/static/7001200692314249376/ 如果你认为看完并且看懂了这五本书: 1.<Comm ...
lisp调用vlx模块_CAD二次开发，lisp程序生成应用程序VLX，如何在CAD里面创建一个快捷图标，点击快捷图标就可以调用程序？...
回答: 1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度) (defun c:LL () (setvar "cmdecho" 1) (setq en (ssg ...
cad lisp 微盘程序_CAD LISP 程序[精校版本]
<CAD LISP 程序[精校版本]>由会员分享,可在线阅读,更多相关<CAD LISP 程序[精校版本](8页珍藏版)>请在人人文库网上搜索. 1.1.计算所有线段总长度(加 ...
cad零点坐标标注lisp_CAD XY坐标标注AUTO LISP程序
CAD X,Y 坐标坐标标注 AUTO LISP 程序 ;; (DEFUN IDPT(/ p px py pxx pyy) (DEFUN IDPT () (SETQ X T) (WHILE X (SE ...

cad lisp程序标注避让_CAD lisp 下面代码如何修改才能使标注位置离开基准点

cad lisp程序标注避让_CAD lisp 下面代码如何修改才能使标注位置离开基准点相关推荐

最新文章

热门文章

cad lisp程序 标注 避让_CAD lisp 下面代码如何修改 才能使标注位置离开基准点

cad lisp程序 标注 避让_CAD lisp 下面代码如何修改 才能使标注位置离开基准点相关推荐

最新文章

热门文章

cad lisp程序标注避让_CAD lisp 下面代码如何修改才能使标注位置离开基准点

cad lisp程序标注避让_CAD lisp 下面代码如何修改才能使标注位置离开基准点相关推荐