才学LSP没多久，发一些自己写的lsp，高手不要笑话哈~

qinleilei

;—————————判断多线段是否封闭————————
(defun c:JJ()
(setq n (car (entsel)))
(setq n1 (entget n)) ;碰选一多线段，获取元体资料串行
(setq p1 (assoc 70  n1))   ;获取多线段是否闭合标志串码
(setq d1 (assoc 10  n1))   ;获取多线段是开口坐标标志串码
(setq p2 (cdr p1 ))
(setq d2 (cdr d1 ))
(if (= P2 0)
    (progn
    (princ"\n亲爱的陛下！闭合状态:否" )(princ "    开口处坐标：")(princ d2)
    (command "donut" "0" "3" d2 "")
)
)
(if (= P2 1) (princ "\n亲爱的陛下！闭合状态:是" ))
(princ )
)

;————画研磨符号（五金模具设计类用的多）有瑕疵望高手来改进—————
(defun c:a3()
(princ"\n使用此命令建议关闭对象扑捉功能，否则容易出错")
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq P1 (getpoint "\n指定点1:"))
(setq p1x(car p1))
(setq p1y(cadr p1))
(setq p2(getpoint p1 "\n指定点2:"))
(setq p2x(car p2))
(setq p2y(cadr p2))
(setq mx (/ (+ p1x  p2x) 2))
(setq my (/ (+ p1y  p2y) 2))
(setq m (list mx  my))
(setq j (angle p1 p2))
(setq j1 (angtos j 0))
(setq h (* (sqrt 3) 2.5))
(setq a1 (list (- mx 2.5)  (- my h)))
(setq a2 (list (- mx 5) my))
(setq a3 (list (- mx 7.5)  (- my h)))
(setq a4 (list (+ mx 7.5)  (- my h)))
(setq a5 (list (+ mx 5) my))
(setq a6 (list (+ mx 2.5)  (- my h)))
(setq n1 (list (- mx 7.6) (- my 4.4)))
(setq n2 (list (+ mx 7.6) (+ my 0.1)))
(command "PLINE" m a1 a2 a3 a4 a5 a6 "C")
(setq n3 (ssget "w" n1 n2 ))
(command  "ROTATE" n3 "" m j1 )
(setvar "osmode" 4)
(COMMAND "CHPROP" "P" "" "C" "1" ""))

;—————————选颜色删图元—————
(defun c:eq()
(setq ss2 (ssadd))
(princ "\n点选参照图元:")
(setq ss1(cdr (assoc 62 (entget(car (entsel))))))
(princ "\n框选需要删除的图元:")
(setq ss (ssget)) ;框选对象
(setq n 0) ;变量n值设为实数0,n为选择集的起始值
(repeat (sslength ss)
(setq en (ssname ss n))  ;选择集中第n个对象的名称
(setq endata (entget en)) ;获取元体资料串行
(setq nn(assoc 62 endata));获取元体串码0 的列表
(setq p1 (cdr nn)) ;返回串码0中去掉了第一个元素的表
(if (=  p1 ss1)
(ssadd en ss2))
(setq n (1+ n)))
(command "ERASE" ss2 ""))


;—————————局部刷新—————
(defun c:rf()
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(setq b (getvar "viewsize")
         c (car (getvar "screensize"))
         d (cadr (getvar "screensize"))
         a (* b (/ c d))
         x (trans (getvar "viewctr") 1 2)
         g1 (trans (list (- (car x)  (/ a 2.0)) (- (cadr x) (/ b 2.0)) 0.0) 2 1)
         g2 (trans (list (+ (car x) (/ a 2.0)) (+ (cadr x) (/ b 2.0)) 0.0) 2 1)
   )
(setq ss(ssget "_C" g1 g2))
(command "ERASE" ss "" )
(command "u"  "" )
)

paulpipi

局部刷新功能挺是有用   谢谢分享

qinleilei

刚学没多久，容易搞糊涂，就在后面加了好多的批注，，发帖时忘记删了

qinleilei

另外请教一下下图的这种坐标标注方式如何写lsp？

qinleilei

各位大侠帮我看下下图这个中心线该怎么写lsp,谢谢了，电脑换64位了外挂半残废了，只能依靠lsp了

qinleilei

怎么么没有人帮我看下呢[em0]

lostbalance

qinleilei 发表于 2014-5-8 00:00
各位大侠帮我看下下图这个中心线该怎么写lsp,谢谢了，电脑换64位了外挂半残废了，只能依靠lsp了

如果只是图中的样式的话，可以考虑提取图形的最小包围框的四个点，然后就可以计算得到中心线的定位点了。
包围框的函数论坛里应该有，可以找下

qinleilei

lostbalance 发表于 2014-5-8 20:54
如果只是图中的样式的话，可以考虑提取图形的最小包围框的四个点，然后就可以计算得到中心线的定位点了。 ...

我也是这个思路，关键是不知道如何去提取最小包围框，很感谢你的解答，我去搜一下

ysq101

这个也算是新手的程序？？有点厉害啊

xyp1964

判断多线段是否封闭：70码为1或起点与终点坐标相等

liu22737

局部刷新请参考黄明儒大师的常用函数帖子，用entupd更快，你这里用erase+U，相当于对图元处理了两次