求救!!!"选矩形,自动倒C角"

南国浪子

过程是这样的,先画好标准的矩形(四边形),然后倒R角,一般是三大一小,或三小一大,如3-R1.8 &R.8或3-R0.8&R1.8
然后运行TEST.LSP,通过计算自动倒出与R相对应的C角,如3-C2.0&C1.0或者3-C1.0&C2.0
其中C角大小是程序通过计算R大小后加上0.2得到的,这部分程序已经实现
现在主要的问题是有部分图形可以完成,有些又不行,不知道为什么,因小弟是初学LSP,程序有点不专业,请大师们给予指正

1. (defun c:test (/ entssa vn minpt maxpt ssent tem li ven sp dp sp1 sp2 dis tem1 tem2 sp11 sp12 dp11 dp12)
   
2.   (setvar "cmdecho" 0)  
   
3.   (setq os (getvar "osmode"))
   
4.   (setvar "osmode" 512)
   
5.   (command "ucs" "w")
   
6.   (setq entssa (ssget (getpoint "\n选择多义线外形:")))
   
7.   (setq vn (vlax-ename->vla-object (ssname entssa 0)))
   
8.   (Vla-GetBoundingBox vn 'MinPt 'MaxPt)
   
9.   (setq  MinPt (vlax-safeArray->list MinPt)
   
10.   MaxPt (vlax-safeArray->list MaxPt)
    
11.   )
    
12.   (setq long (- (car maxpt) (car minpt)))
    
13.   (setq wide (- (cadr maxpt) (cadr minpt)))
    
14.   (setq ssent (entget (ssname entssa 0)))
    
15.   (if (equal (cdr (assoc 0 (entget (ssname entssa 0))))
    
16.        "LWPOLYLINE"
    
17.       )
    
18. 
    
19.     (progn
    
20.       (setq n  0
    
21.       tem  '()
    
22.       )
    
23.       (repeat (length ssent)
    
24.   (setq li (car (nth n ssent)))
    
25.   (setq ven (cdr (nth n ssent)))
    
26.   (if (= 10 li)
    
27.     (setq tem (append (list ven) tem))
    
28.   )
    
29.   (setq n (1+ n))
    
30.       )
    
31. 
    
32.     )
    
33.   )
    
34.   (setq tem1 (car tem))
    
35.   (setq tem2 (cdr tem))
    
36.   (setq tem (append tem2 (list tem1)))
    
37.   (setq n 0)
    
38.   (repeat 4
    
39.     (setq sp (nth (* 2 n) tem))
    
40.     (setq sp1 (polar sp (*  (- 1.5 (* 0.5 n)) pi) (/ wide 2)))
    
41.     (setq sp1 (cons 0.0  sp1 ))
    
42.     (setq sp11 (car sp1))
    
43.     (setq sp12 (cdr sp1))
    
44.     (setq sp1 (append sp12 (list sp11)))   
    
45.     (setq dp (nth (1+ (* 2 n)) tem))
    
46.     (setq dp1 (polar dp (*  (- 1 (* 0.5 n)) pi) (-(/ wide 2))))
    
47.     (setq dp1 (cons 0.0  dp1 ))
    
48.     (setq dp11 (car dp1))
    
49.     (setq dp12 (cdr dp1))
    
50.     (setq dp1 (append dp12 (list dp11)))
    
51.     (setq dis (+ 0.2 (/ (distance sp dp) (sqrt 2))))
    
52.     (setvar "osmode" 0)
    
53.     (command "chamfer" "d" dis dis  "chamfer" sp1 dp1)
    
54.     (setq n (1+ n))
    
55.   )
    
56.   (setvar "osmode" os)
    
57.   (princ)
    
58. )
    

(defun c:test (/ entssa vn minpt maxpt ssent tem li ven sp dp sp1 sp2 dis tem1 tem2 sp11 sp12 dp11 dp12)<br />   (setvar "cmdecho" 0)  <br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 512)<br />   (command "ucs" "w")<br />   (setq entssa (ssget (getpoint "\n选择多义线外形:")))<br />   (setq vn (vlax-ename->vla-object (ssname entssa 0)))<br />   (Vla-GetBoundingBox vn 'MinPt 'MaxPt)<br />   (setq  MinPt (vlax-safeArray->list MinPt)<br />   MaxPt (vlax-safeArray->list MaxPt)<br />   )<br />   (setq long (- (car maxpt) (car minpt)))<br />   (setq wide (- (cadr maxpt) (cadr minpt)))<br />   (setq ssent (entget (ssname entssa 0)))<br />   (if (equal (cdr (assoc 0 (entget (ssname entssa 0))))<br />        "LWPOLYLINE"<br />       )<br /> <br />     (progn<br />       (setq n  0<br />       tem  '()<br />       )<br />       (repeat (length ssent)<br />   (setq li (car (nth n ssent)))<br />   (setq ven (cdr (nth n ssent)))<br />   (if (= 10 li)<br />     (setq tem (append (list ven) tem))<br />   )<br />   (setq n (1+ n))<br />       )<br /> <br />     )<br />   )<br />   (setq tem1 (car tem))<br />   (setq tem2 (cdr tem))<br />   (setq tem (append tem2 (list tem1)))<br />   (setq n 0)<br />   (repeat 4<br />     (setq sp (nth (* 2 n) tem))<br />     (setq sp1 (polar sp (*  (- 1.5 (* 0.5 n)) pi) (/ wide 2)))<br />     (setq sp1 (cons 0.0  sp1 ))<br />     (setq sp11 (car sp1))<br />     (setq sp12 (cdr sp1))<br />     (setq sp1 (append sp12 (list sp11)))    <br />     (setq dp (nth (1+ (* 2 n)) tem))<br />     (setq dp1 (polar dp (*  (- 1 (* 0.5 n)) pi) (-(/ wide 2))))<br />     (setq dp1 (cons 0.0  dp1 ))<br />     (setq dp11 (car dp1))<br />     (setq dp12 (cdr dp1))<br />     (setq dp1 (append dp12 (list dp11)))<br />     (setq dis (+ 0.2 (/ (distance sp dp) (sqrt 2))))<br />     (setvar "osmode" 0)<br />     (command "chamfer" "d" dis dis  "chamfer" sp1 dp1)<br />     (setq n (1+ n))<br />   )<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br />

南国浪子

谁可以帮帮我了?

690994

直接改多义线的点，再将R角的凸度归0，不用倒角命令。