求一个根据一组设定值进行偏移的LSP程序

Andyhon

... 如果已经提前选中线段 ...

(setq ss (ssgetfirst)
      ee (ssname (cadr ss) 0)
)

但如此会少了点选时的那个 选取点
得先知道 图元类别是什么,才好写出对映的代码 ...

moshouhot

Andyhon 发表于 2012-7-25 10:25
... 如果已经提前选中线段 ...

(setq ss (ssgetfirst)

大侠，如果第一个请求如果很难实现，第二个请求：“在第二次偏移的时候，您的程序确实存储了第一次偏移的设定值，但显示的方法可不可以优化一下：能不能改成“Specify offset distance or<2 6 23>：”。这样就节省了一个敲No，然后输入设定值的步骤。”有实现的可能么？谢谢了

Andyhon

2. 
   
3. 
   
4. (defun ustr (bit msg def spflag / inp nval)
   
5.   (if (and def (/= def ""))
   
6.     (setq msg (strcat "\n" msg " <" def ">: ")
   
7.           inp (getstring msg spflag)
   
8.           inp (if (= inp "")
   
9.                 def
   
10.                 inp
    
11.               )
    
12.     )
    
13.     (progn
    
14.       (if (= " " (substr msg (strlen msg) 1))
    
15.         (setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))
    
16.         (setq msg (strcat "\n" msg ": "))
    
17.       )
    
18.       (if (= bit 1)
    
19.         (while (= "" (setq inp (getstring msg spflag)))
    
20.           (prompt "\nInvalid string.")
    
21.         )
    
22.         (setq inp (getstring msg spflag))
    
23.       )
    
24.     )
    
25.   )
    
26. )
    
27. 
    
28. (Defun Off_Aux (ddL pnt)
    
29.   (setq Hdd 0)
    
30.   (while (setq dd (car ddL))
    
31.     (setq Hdd (+ Hdd dd))
    
32.     (command "_.offset" Hdd ee Pnt "")
    
33.     (setq ddL (cdr ddL))
    
34.   )
    
35. )
    
36. 
    
37. (defun C:OFFSETS ()
    
38.   (setq a (uStr 0 "\nSpecify offset distance" *HddLst* T))
    
39.   (setq *HddLst* a)
    
40.   (setq ddLst (read (strcat "(" a ")")))
    
41.   (cond
    
42.     ;|
    
43.     ((setq ss (cadr (ssgetfirst)))
    
44.      (setq ee (ssname ss 0))
    
45.     )
    
46.     |;
    
47.     (T
    
48.      (prompt "\nSelect object to offset: ")
    
49.      (while (not (setq ee (entsel))))
    
50.     )
    
51.   )
    
52. 
    
53.   (setq Pt1 (getpoint "\nSpecify point on side to offset: "))
    
54. 
    
55.   (cond
    
56.     ((null pt1)
    
57.      (setq p5  (osnap (cadr ee) "Mid")
    
58.            pa  (osnap (cadr ee) "end")
    
59.            vv  (angle pa p5)
    
60.            pt1 (polar p5 (+ vv 1.5) 8)
    
61.            pt2 (polar p5 (- vv 1.5) 8)
    
62.      )
    
63.     )
    
64.     (T (setq pt2 nil))
    
65.   )
    
66.   (Off_Aux ddLst pt1)
    
67.   (if pt2
    
68.     (Off_Aux ddLst pt2)
    
69.   )
    
70.   (princ)
    
71. )
    

<br /> <br /> (defun ustr (bit msg def spflag / inp nval)<br />   (if (and def (/= def ""))<br />     (setq msg (strcat "\n" msg " <" def ">: ")<br />           inp (getstring msg spflag)<br />           inp (if (= inp "")<br />                 def<br />                 inp<br />               )<br />     )<br />     (progn<br />       (if (= " " (substr msg (strlen msg) 1))<br />         (setq msg (strcat "\n" (substr msg 1 (1- (strlen msg))) ": "))<br />         (setq msg (strcat "\n" msg ": "))<br />       )<br />       (if (= bit 1)<br />         (while (= "" (setq inp (getstring msg spflag)))<br />           (prompt "\nInvalid string.")<br />         )<br />         (setq inp (getstring msg spflag))<br />       )<br />     )<br />   )<br /> )<br /> <br /> (Defun Off_Aux (ddL pnt)<br />   (setq Hdd 0)<br />   (while (setq dd (car ddL))<br />     (setq Hdd (+ Hdd dd))<br />     (command "_.offset" Hdd ee Pnt "")<br />     (setq ddL (cdr ddL))<br />   )<br /> )<br /> <br /> (defun C:OFFSETS ()<br />   (setq a (uStr 0 "\nSpecify offset distance" *HddLst* T))<br />   (setq *HddLst* a)<br />   (setq ddLst (read (strcat "(" a ")")))<br />   (cond<br />     ;|<br />     ((setq ss (cadr (ssgetfirst)))<br />      (setq ee (ssname ss 0))<br />     )<br />     |;<br />     (T<br />      (prompt "\nSelect object to offset: ")<br />      (while (not (setq ee (entsel))))<br />     )<br />   )<br /> <br />   (setq Pt1 (getpoint "\nSpecify point on side to offset: "))<br /> <br />   (cond<br />     ((null pt1)<br />      (setq p5  (osnap (cadr ee) "Mid")<br />            pa  (osnap (cadr ee) "end")<br />            vv  (angle pa p5)<br />            pt1 (polar p5 (+ vv 1.5) 8)<br />            pt2 (polar p5 (- vv 1.5) 8)<br />      )<br />     )<br />     (T (setq pt2 nil))<br />   )<br />   (Off_Aux ddLst pt1)<br />   (if pt2<br />     (Off_Aux ddLst pt2)<br />   )<br />   (princ)<br /> )<br />

illcyt

cad自带的偏移就可以记得值啊（我是06cad）另外，贱人工具箱5.7里面有个双向偏移，希望对你有帮助

moshouhot

Andyhon 发表于 2012-7-26 22:10

太棒了，看出来您是重新写了代码的。我测试了下针对直线、圆弧、多段线都很好用，但不能很好支持多义线。另外之前当出现Specify point on side to offset: <4 3 2>时，点空格不能正常进入下一步操作，可不可以侦测到空格就进入下一步，侦测到数字就输入新的数字呢？

Andyhon

(setq Pt1 (getpoint "\nSpecify point on side to offset: "))
何來 <4 3 2>

moshouhot

Andyhon 发表于 2012-7-27 17:52
(setq Pt1 (getpoint "\nSpecify point on side to offset: "))
何來

可能你误解了我的意思。我的意思是第二次使用OFFSETS的时候，默认是使用第一次输入的值，第二次使用时到达“Specify point on side to offset”这一步时，因为有以前输入的值，这时候我用空格是不能进入下一步操作的，而回车却可以。总感觉是个小BUG,这个问题能帮忙解决下么？

Andyhon

   ...用空格是不能进入下一步操作的，而回车却可以...
您用的 CAD 版号是?   

Command: (ver)
"Visual LISP 2004 (en)"
Command: (setq Pt1 (getpoint "\nSpecify point on side to offset: "))
Specify point on side to offset:  nil
(此处以按 Space bar 回应 ---> nil 与 Enter(回车) 同)

328302216

好程序，学习了！

李青松

Andyhon 发表于 2012-7-26 22:10

太棒了 支持