直接输入尺寸就可以生成这样的长方形的lisp怎么写

277283904

直接输入尺寸就可以生成这样的长方形的lisp怎么写

飞雪神光

基础的参数制图 全是计算 主要用polar函数  然后画直线多段线

自贡黄明儒

先用command写。你怎么在命令输入的，就怎么写

lailaifa

(defun c:tt (/ osm sg-cd sg-df sg-dfjl sg-kd sg-pt0 sg-pt1 sg-pt2 sg-pt3 sg-pt4 sg-pt5 sg-pt6 sg-ss)
        (setvar "CMDECHO" 0)
        (setvar"cmdecho"0)
  (setvar"blipmode"0)
        (setq osm (getvar "OSMODE"))
        (setq sg-cd (getreal "\n 输入长度:")
                sg-kd (getreal "\n 输入宽度:")
                sg-df (getreal "\n 输入等分数:")
                sg-pt0 (getpoint "\指定插入点:")
                sg-pt1 (polar sg-pt0 0 (/ sg-cd 2.))
                sg-pt2 (polar sg-pt1 (* pi 0.5) (/ sg-kd 2.))
                sg-pt3 (polar sg-pt0 pi (/ sg-cd 2.))
                sg-pt4 (polar sg-pt3 (* pi 1.5) (/ sg-kd 2.))
                sg-dfjl (/ (distance sg-pt1 sg-pt3) sg-df)
                sg-pt5 (polar sg-pt4 0 sg-dfjl)
                sg-pt6 (polar sg-pt5 (* pi 0.5) sg-kd)
        )
        (command "RECTANG" "non" sg-pt2 "non" sg-pt4)
        (command "LINE" "non" sg-pt5 "non" sg-pt6 "")
        (setq sg-ss (entlast))
        (command "-ARRAY" sg-ss "" "R" "1" (rtos sg-df) (rtos sg-dfjl))
        (princ "\n绘制完毕!")       
        (setvar "OSMODE" osm)
        (princ)
)

夏生生

试试

1. (defun c:tt  (/ str->l a b lst pt str1 str2)
   
2.     (defun str->l  (Str Key / i s lst)
   
3.   (while (setq i (vl-string-search Key Str))
   
4.       (setq s   (substr Str 1 i)
   
5.       Str (substr Str
   
6.             (+ 1
   
7.          (strlen key)
   
8.          (if i
   
9.              i
   
10.              0)))
    
11.       Lst (cons s Lst)))
    
12.   (vl-remove "" (reverse (cons str Lst))))
    
13.     (setq str1 (getstring "\n横向尺寸(a,b,c..):")
    
14.     str1 (mapcar 'atof (str->l str1 ","))
    
15.     str2 (getstring "\n纵向尺寸(a,b,c..):")
    
16.     str2 (mapcar 'atof (str->l str2 ","))
    
17.     pt   (getpoint "\n插入点:")
    
18.     a    0
    
19.     lst  (mapcar
    
20.        '(lambda (x)
    
21.       (setq a  (+ a x)
    
22.             b  0)
    
23.       (mapcar  '(lambda (y) (list (setq b (+ b y)) a))
    
24.         (cons 0 str1)))
    
25.        (cons 0 str2)))
    
26.     (foreach n  lst
    
27.   (mapcar
    
28.       '(lambda (x y)
    
29.      (entmake
    
30.          (list '(0 . "line")
    
31.          (cons 10 (trans (mapcar '+ pt x) 1 0))
    
32.          (cons 11 (trans (mapcar '+ pt y) 1 0)))))
    
33.       n
    
34.       (cdr n)))
    
35.     (setq lst (apply 'mapcar (cons 'list lst)))
    
36.     (foreach n  lst
    
37.   (mapcar
    
38.       '(lambda (x y)
    
39.      (entmake
    
40.          (list '(0 . "line")
    
41.          (cons 10 (trans (mapcar '+ pt x) 1 0))
    
42.          (cons 11 (trans (mapcar '+ pt y) 1 0)))))
    
43.       (cdr n)
    
44.       n)))

(defun c:tt  (/ str->l a b lst pt str1 str2)<br />     (defun str->l  (Str Key / i s lst)<br />   (while (setq i (vl-string-search Key Str))<br />       (setq s   (substr Str 1 i)<br />       Str (substr Str<br />             (+ 1<br />          (strlen key)<br />          (if i<br />              i<br />              0)))<br />       Lst (cons s Lst)))<br />   (vl-remove "" (reverse (cons str Lst))))<br />     (setq str1 (getstring "\n横向尺寸(a,b,c..):")<br />     str1 (mapcar 'atof (str->l str1 ","))<br />     str2 (getstring "\n纵向尺寸(a,b,c..):")<br />     str2 (mapcar 'atof (str->l str2 ","))<br />     pt   (getpoint "\n插入点:")<br />     a    0<br />     lst  (mapcar<br />        '(lambda (x)<br />       (setq a  (+ a x)<br />             b  0)<br />       (mapcar  '(lambda (y) (list (setq b (+ b y)) a))<br />         (cons 0 str1)))<br />        (cons 0 str2)))<br />     (foreach n  lst<br />   (mapcar<br />       '(lambda (x y)<br />      (entmake<br />          (list '(0 . "line")<br />          (cons 10 (trans (mapcar '+ pt x) 1 0))<br />          (cons 11 (trans (mapcar '+ pt y) 1 0)))))<br />       n<br />       (cdr n)))<br />     (setq lst (apply 'mapcar (cons 'list lst)))<br />     (foreach n  lst<br />   (mapcar<br />       '(lambda (x y)<br />      (entmake<br />          (list '(0 . "line")<br />          (cons 10 (trans (mapcar '+ pt x) 1 0))<br />          (cons 11 (trans (mapcar '+ pt y) 1 0)))))<br />       (cdr n)<br />       n)))

paulpipi

感谢各位大神

277283904

感谢各位大神

水洗可口可乐

飞雪神光 发表于 2023-12-5 12:14
基础的参数制图 全是计算 主要用polar函数  然后画直线多段线

如果是复杂图形，几百条线段有没简化方式？ 比如组合？

bai2000

夏生生 发表于 2023-12-5 19:33
试试

不错，不错，

飞雪神光

水洗可口可乐 发表于 2023-12-6 11:25
如果是复杂图形，几百条线段有没简化方式？ 比如组合？

如果是会因参数变化而变化的就要挨个画  如果不变 可以弄个类似打包的 比如 打包图块一类的 明经上也有