这两个程序怎样改成指定的插入点默认在坐标原点，不需要在屏幕上指定。

李青松

(defun c:tt()
  (setvar "CMDECHO" 0)
  (if (not (numberp ma)) (setq ma 1000.0))
  (if (not (numberp mb)) (setq mb 500.0))
  (if (not (numberp mc)) (setq mc 600.0))
  (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
  (setq A (if A A ma))
  (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
  (setq B (if B B mb))
  (setq C (getdist (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))
  (setq C (if C C mc))
  (if (setq pt (getpoint "\n 请指定插入点：")) (progn
   (setq pc (mapcar '+ pt (list A B)))
   (setq pe (mapcar '+ pc (list 0 500))
         pff (mapcar '+ pe (list 0 C))
         pg (polar pff pi (/ A 2))
         ph (polar pe pi (/ A 2)))
   (command "_.RECTANG" pt pc "PLINE" ph pe pff pg "")
  ))
  (setq ma A mb B mc C)
  (setvar "CMDECHO" 1)
  (princ)
)


(defun c:tt2()
  (setvar "CMDECHO" 0)
  (if (not (numberp ma)) (setq ma 1000.0))
  (if (not (numberp mb)) (setq mb 500.0))
  (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
  (setq A (if A A ma))
  (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
  (setq B (if B B mb))
  (if (setq pc (getpoint "\n 请指定插入点：")) (progn
   (setq r (/ A 2))
   (setq p1 (mapcar '+ pc (list r (+ r 500))))
   (setq p2 (mapcar '+ p1 (list 0 B))
         p3 (polar p1 pi r)
         p4 (polar p2 pi r))
   (command "_.CIRCLE" pc r "PLINE" p4 p2 p1 p3 "")
  ))
  (setq ma A mb B)
  (setvar "CMDECHO" 1)
  (princ)
)

kwok

如果坐标原点指的是0,0,0的话
1,把(setq pt (getpoint "\n 请指定插入点："))这句改成=>(setq pt '(0 0 0)
2,把(setq pc (getpoint "\n 请指定插入点："))这句改成=>(setq pc '(0 0 0)

coolpoom

2. (defun c:tt()
   
3.   (setvar "CMDECHO" 0)
   
4.   (setvar "osmode" 0)
   
5.   (if (not (numberp ma)) (setq ma 1000.0))
   
6.   (if (not (numberp mb)) (setq mb 500.0))
   
7.   (if (not (numberp mc)) (setq mc 600.0))
   
8.   (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
   
9.   (setq A (if A A ma))
   
10.   (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
    
11.   (setq B (if B B mb))
    
12.   (setq C (getdist (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))
    
13.   (setq C (if C C mc))
    
14.   (if (setq pt (list 0 0)) (progn
    
15.    (setq pc (mapcar '+ pt (list A B)))
    
16.    (setq pe (mapcar '+ pc (list 0 500))
    
17.          pff (mapcar '+ pe (list 0 C))
    
18.          pg (polar pff pi (/ A 2))
    
19.          ph (polar pe pi (/ A 2)))
    
20.    (command "_.RECTANG" pt pc "PLINE" ph pe pff pg "")
    
21.   ))
    
22.   (setq ma A mb B mc C)
    
23.   (setvar "CMDECHO" 1)
    
24.   (princ)
    
25. )
    
26. (defun c:tt2()
    
27.   (setvar "CMDECHO" 0)
    
28.   (setvar "osmode" 0)
    
29.   (if (not (numberp ma)) (setq ma 1000.0))
    
30.   (if (not (numberp mb)) (setq mb 500.0))
    
31.   (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))
    
32.   (setq A (if A A ma))
    
33.   (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))
    
34.   (setq B (if B B mb))
    
35.   (if (setq pc (list 0 0)) (progn
    
36.    (setq r (/ A 2))
    
37.    (setq p1 (mapcar '+ pc (list r (+ r 500))))
    
38.    (setq p2 (mapcar '+ p1 (list 0 B))
    
39.          p3 (polar p1 pi r)
    
40.          p4 (polar p2 pi r))
    
41.    (command "_.CIRCLE" pc r "PLINE" p4 p2 p1 p3 "")
    
42.   ))
    
43.   (setq ma A mb B)
    
44.   (setvar "CMDECHO" 1)
    
45.   (princ)
    
46. )

(defun c:tt()<br />   (setvar "CMDECHO" 0)<br />   (setvar "osmode" 0)<br />   (if (not (numberp ma)) (setq ma 1000.0))<br />   (if (not (numberp mb)) (setq mb 500.0))<br />   (if (not (numberp mc)) (setq mc 600.0))<br />   (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))<br />   (setq A (if A A ma))<br />   (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))<br />   (setq B (if B B mb))<br />   (setq C (getdist (strcat "\n请输入C的值" "<" (rtos mc 2 2) ">")))<br />   (setq C (if C C mc))<br />   (if (setq pt (list 0 0)) (progn<br />    (setq pc (mapcar '+ pt (list A B)))<br />    (setq pe (mapcar '+ pc (list 0 500))<br />          pff (mapcar '+ pe (list 0 C))<br />          pg (polar pff pi (/ A 2))<br />          ph (polar pe pi (/ A 2)))<br />    (command "_.RECTANG" pt pc "PLINE" ph pe pff pg "")<br />   ))<br />   (setq ma A mb B mc C)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br /> (defun c:tt2()<br />   (setvar "CMDECHO" 0)<br />   (setvar "osmode" 0)<br />   (if (not (numberp ma)) (setq ma 1000.0))<br />   (if (not (numberp mb)) (setq mb 500.0))<br />   (setq A (getdist (strcat "\n请输入A的值" "<" (rtos ma 2 2) ">")))<br />   (setq A (if A A ma))<br />   (setq B (getdist (strcat "\n请输入B的值" "<" (rtos mb 2 2) ">")))<br />   (setq B (if B B mb))<br />   (if (setq pc (list 0 0)) (progn<br />    (setq r (/ A 2))<br />    (setq p1 (mapcar '+ pc (list r (+ r 500))))<br />    (setq p2 (mapcar '+ p1 (list 0 B))<br />          p3 (polar p1 pi r)<br />          p4 (polar p2 pi r))<br />    (command "_.CIRCLE" pc r "PLINE" p4 p2 p1 p3 "")<br />   ))<br />   (setq ma A mb B)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )

李青松

coolpoom 发表于 2014-4-9 11:14

我试了一下，画完后图片上端的三条线是一条多段线，我想让他画完后上端的三条线是三根单独的直线，麻烦哥们改一下。两个程序都是一样的情况。

李青松

李青松 发表于 2014-4-9 11:29
我试了一下，画完后图片上端的三条线是一条多段线，我想让他画完后上端的三条线是三根单独的直线，麻烦哥 ...

kwok  把　"PLINE" 改成=>"LINE" 就行了    完全可行，你真棒，谢谢你