直线板筋改带斜钩板筋，待完善

fcut2004

小弟不才，刚学lisp不久，自己拼了个直线改带斜钩的程序，这里有两个问题。1、精度不高，要把直线显示到足够大，才能成功改成斜钩.  2、每次只能选一条直线，不能批量选择。 望大侠完善，特别是第一个问题，困扰了我好段时间。我编的其他画多线的命令，都要将cad的上的图显示到要画的多线的单位差不多数量级时，才能成功。
(defun c:y57 ()
   (setq ent (car (entsel "\n请选取直线：")))  ;;ent 为实体名
   (if ent (progn                  
       (setq el (entget ent))
       (if (equal (cdr (assoc 0 el)) "LINE")
         (progn
           (setq p1 (cdr (assoc 10 el)))    ;;p1,p2分别为直线的起、终点
           (setq p2 (cdr (assoc 11 el)))
(setq dist1 (distance p1 p2));读取p1 p2间距  
(setq ang1 (angle p1 p2))  ;读取直线的角度间距
))
    ))
;(setq p1 (polar p1  ang1 100));定义钢筋起点
;(setq p2 (polar p2  (+ (* 1.0 pi) ang1) 100));定义钢筋终点
(setq p3 (polar p1 (+ (* 0.25 pi) ang1) 200));定义钢筋起点
(setq p4 (polar p2 (+ (* 0.75 pi) ang1) 200));定义钢筋起点
(command "pline" p3 p1 p2 p4 "")
(entdel ent)
   (princ)
)

xsso

1. (defun c:y57 ()
   
2.   (setq OLDOSM (getvar "osmode"))
   
3.   (setvar "osmode" 0)
   
4.   (setq ent (car (entsel "\n请选取直线：")));_ent 为实体名
   
5.   (if ent
   
6.     (progn
   
7.       (setq el (entget ent))
   
8.       (if (equal (cdr (assoc 0 el)) "LINE")
   
9. (progn
   
10.    (setq p1 (cdr (assoc 10 el)))
    
11.    ;;p1,p2分别为直线的起、终点
    
12.    (setq p2 (cdr (assoc 11 el)))
    
13.    (setq dist1 (distance p1 p2)) ;读取p1 p2间距  
    
14.    (setq ang1 (angle p1 p2)) ;读取直线的角度间距
    
15. )
    
16.       )
    
17.     )
    
18.   )
    
19.      ;(setq p1 (polar p1  ang1 100));定义钢筋起点
    
20.      ;(setq p2 (polar p2  (+ (* 1.0 pi) ang1) 100));定义钢筋终点
    
21.   (setq p3 (polar p1 (+ (* 0.25 pi) ang1) 200)) ;定义钢筋起点
    
22.   (setq p4 (polar p2 (+ (* 0.75 pi) ang1) 200)) ;定义钢筋起点
    
23.   (command "pline" p3 p1 p2 p4 "")
    
24.   (entdel ent)
    
25.   (setvar "osmode" OLDOSM)
    
26.   (princ)
    
27. )

(defun c:y57 ()<br />   (setq OLDOSM (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (setq ent (car (entsel "\n请选取直线：")));_ent 为实体名 <br />   (if ent<br />     (progn<br />       (setq el (entget ent))<br />       (if (equal (cdr (assoc 0 el)) "LINE")<br /> (progn<br />    (setq p1 (cdr (assoc 10 el)))<br />    ;;p1,p2分别为直线的起、终点 <br />    (setq p2 (cdr (assoc 11 el)))<br />    (setq dist1 (distance p1 p2)) ;读取p1 p2间距  <br />    (setq ang1 (angle p1 p2)) ;读取直线的角度间距 <br /> )<br />       )<br />     )<br />   )<br />      ;(setq p1 (polar p1  ang1 100));定义钢筋起点<br />      ;(setq p2 (polar p2  (+ (* 1.0 pi) ang1) 100));定义钢筋终点 <br />   (setq p3 (polar p1 (+ (* 0.25 pi) ang1) 200)) ;定义钢筋起点<br />   (setq p4 (polar p2 (+ (* 0.75 pi) ang1) 200)) ;定义钢筋起点<br />   (command "pline" p3 p1 p2 p4 "")<br />   (entdel ent)<br />   (setvar "osmode" OLDOSM)<br />   (princ)<br /> )

不知道你要什么效果但想画好的话
头
(setq OLDOSM (getvar "osmode"))
(setvar "osmode" 0)
和尾
(setvar "osmode" OLDOSM)
这几段必须加

fcut2004

谢谢，貌似就是这样。批量改，以后再学个循环就搞定了。

xyp1964

2. (defun c:tt ()
   
3.   (defun aaa (s1 / el p1 p2 rad p3 p4)
   
4.     (setq el  (entget s1)
   
5.           p1  (cdr (assoc 10 el))
   
6.           p2  (cdr (assoc 11 el))
   
7.           rad (angle p1 p2)
   
8.           p3  (polar p1 (+ (* 0.25 pi) rad) 200)
   
9.           p4  (polar p2 (+ (* 0.75 pi) rad) 200)
   
10.     )
    
11.     (command "pline" p3 p1 p2 p4 "")
    
12.     (entdel s1)
    
13.   )
    
14.   (setvar "osmode" 0)
    
15.   (setq ss (ssget '((0 . "line")))
    
16.           i  -1
    
17.   )
    
18.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
19.     (aaa s1)
    
20.   )
    
21.   (princ)
    
22. )

(defun c:tt ()<br />   (defun aaa (s1 / el p1 p2 rad p3 p4)<br />     (setq el  (entget s1)<br />           p1  (cdr (assoc 10 el))<br />           p2  (cdr (assoc 11 el))<br />           rad (angle p1 p2)<br />           p3  (polar p1 (+ (* 0.25 pi) rad) 200)<br />           p4  (polar p2 (+ (* 0.75 pi) rad) 200)<br />     )<br />     (command "pline" p3 p1 p2 p4 "")<br />     (entdel s1)<br />   )<br />   (setvar "osmode" 0)<br />   (setq ss (ssget '((0 . "line")))<br />           i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (aaa s1)<br />   )<br />   (princ)<br /> )

psdcdr

在PKPM的绘图参数不是有设置带钩的吗？

fcut2004

psdcdr 发表于 2012-8-7 09:27
在PKPM的绘图参数不是有设置带钩的吗？

公司有自己的画图规定，网上的插件几乎都不能用，所以我只能自己慢慢学点lisp。

石井鱼

请教一下一条直线（非PL线）一端加斜钩怎么弄，tssd必须是PL线，最好能再加个能选择斜钩方向，画结构大样经常用到，谢谢！

chenry676

xyp1964 发表于 2012-8-7 09:08

请问我输入命令无效，而且加载就出现选择窗口是怎么回事？