表循环生成图元

xtdwynij

(entmake ((0 . "LINE") (10 0 0 ) (11 10 10 )))
(entmake ((0 . "LINE") (10 5 4 ) (11 15 18 )))
这二个是线的最少生成图元~!通过比较知道变的只有起点和终点.我想用循环函数.通过增加(10 X X)和(11 X X)的组码来生成图元.这样就会比command的快而且写的代码也会少一点.让人家一看就懂!以前只注重交互和调用系统本身的命令来搞!实在错!所以现在想学学表函数!这问题有点小白了.但是这是我血的教训啊.呵呵

eachy

xtdwynij 发表于 2013-5-21 22:36
(defun c:tt ()
  (setq pt1 (getpoint "\n111:"))
  (setq xpt1 (car pt1))

你还是没有说清要画什么形，下面是按你的程序修改的
[pcode=lisp,true]
(defun c:tt (/ mkln p1 p2 p3 p4) ;_ 变量一定要回收
  ;;(setq pt1 (getpoint "\n111:"))
  ;;(setq xpt1 (car pt1))
  ;;(setq ypt1 (cadr pt1))
  ;;(setq aa (list (list xpt1 ypt1) (list (+ xpt1 6) (+ ypt1 8)))) ;_创建起点
  (defun mkln (sp ep) ;_经常用的做成子函数
    (entmake (list '(0 . "Line")
                   '(100 . "AcDEntity")
                   '(100 . "AcDbLine")
                   (cons 10 sp)
                   (cons 11 ep)
             )
    )
  )
  (while (setq p1 (getpoint "\nPoint: ")) ;_如果有拾取动作才执行下面代码，避免出错,while 循环
    (progn
      ;;(setq bb (list (list (+ xpt1 3) ypt1) (list (+ xpt1 15) (+ ypt1 12)))) ;_创建终点
      (setq p2 (mapcar '+ p1 '(6. 8. 0.))
            p3 (mapcar '+ p1 '(3. 0. 0.))
            p4 (mapcar '+ p1 '(15. 12. 0.))
      )
      ;|(setq i        0    new      ()    )
      (repeat (length aa)
        (setq new (entmake (append (list (cons 0 "LINE")))
                           (append '(10) (nth 0 aa))
                           (append '(11) (nth 0 bb))
                  )
        ) ;_提取起点和终点并合表
        (setq i (1+ i))
      )
      (mapcar '(lambda (x y) (mkln x y))
              (list p1  p3)
              (list p2  p4)
      )|;
      (mkln p1 p2)
      (mkln p3 p4)
    )
  )
  (princ) ;_抑制回显
)
[/pcode]
[pcode=lisp,true]
(defun c:tt (/ mkln p1 p2 p3 p4)
  (defun mkln (sp ep)
    (entmake (list '(0 . "Line")
                    '(100 . "AcDEntity")
                    '(100 . "AcDbLine")
                    (cons 10 sp)
                    (cons 11 ep)
      )
    )
  )
  (while (setq p1 (getpoint "\nPoint: "))
    (setq p2 (mapcar '+ p1 '(6. 8. 0.))
          p3 (mapcar '+ p1 '(3. 0. 0.))
          p4 (mapcar '+ p1 '(15. 12. 0.))
    )
    (mkln p1 p2)
    (mkln p3 p4)
  )
  (princ)
)[/pcode]

ll_j

xtdwynij 发表于 2013-5-21 22:10
foreach这个只有一个变量也可以么?这个我就搞不大懂.mapcar函数的倒可以生成.只不过好像要二层循环的.我 ...

1. (defun c:tt(/ ls n)
   
2.   (setq ls '(((10 1 2 0) (11 3 4 0)) ((10 5 6 0) (11 7 8 0))))
   
3.   (foreach n ls (entmake (cons '(0 . "LINE") n)))
   
4. )

(defun c:tt(/ ls n)<br />   (setq ls '(((10 1 2 0) (11 3 4 0)) ((10 5 6 0) (11 7 8 0))))<br />   (foreach n ls (entmake (cons '(0 . "LINE") n)))<br /> )

zxq0220

1、(entmake '((0 . "LINE") (10 0 0) (11 10 10)))
2、(entmake (list '(0 . "LINE") '(10 0 0) '(11 10 10)))
3、(entmake (list (cons 0 "LINE") (cons 10 (list 0 0)) (cons 11 (list 10 10)))

xtdwynij

zxq0220 发表于 2013-5-21 21:53
1、(entmake '((0 . "LINE") (10 0 0) (11 10 10)))
2、(entmake (list '(0 . "LINE") '(10 0 0) '(11 10  ...

谢谢zxq0220的解答.但我想要的是增加组码为10(起点)和11(终点)来生成图元.比如(entmake '((0 . "LINE") (10 0 0) (11 10 10)))  (entmake '((0 . "LINE") (10 0 0) (11 10 10))) (entmake '((0 . "LINE") (10 0 0) (11 10 10))) (entmake '((0 . "LINE") (10 0 0) (11 10 10))) 我要生成很多线.其他生成条件不变
,变的始终只有起点和终点.我想通过循环函数来增加起点和终点来增加生成图元.

ll_j

研究一下函数mapcar和foreach。

eachy

在这个最小表一般加上(100 . "AcDbEntity")(100 . "AcDbLine"),另外把你的循环代码贴上来，用图说明执行结果

xtdwynij

ll_j 发表于 2013-5-21 22:07
研究一下函数mapcar和foreach。

foreach这个只有一个变量也可以么?这个我就搞不大懂.mapcar函数的倒可以生成.只不过好像要二层循环的.我循环基本上学过就没有用过!表函数也是一个样.所以烂.foreach函数长老能给个例子不?

zxq0220

(defun c:tt ()
(if (setq pt1 (getpoint "\n第一点: "))
  (while (setq pt2 (getpoint pt1 "\n下一点: "))
   (entmake (list '(0 . "LINE") (cons 10 pt1) (cons 11 pt2)))
   (setq pt1 pt2)
  )
)
(princ)
)

Lispboy

xtdwynij 发表于 2013-5-21 22:10
foreach这个只有一个变量也可以么?这个我就搞不大懂.mapcar函数的倒可以生成.只不过好像要二层循环的.我 ...

foreach 没啥难的啊，提取表的每个元素，省去很多如  (setq i (1+ i)) ...(nth i list)  这样的代码了

比如：
   [pcode=lisp,true]
      (setq el (list 1 2 3 4))
      (setq len (length el))      (setq i 0)
      (repeat len
          (setq e (nth i el))
          ....
          (setq i (1+ i))
       )
    [/pcode]

用FOREACH简单明了
    [pcode=lisp,true]
         (setq el (list 1 2 3 4))
         (foreach n el
              ....
         )
     [/pcode]

上面两个等价。

xtdwynij

Lispboy 发表于 2013-5-21 22:28
foreach 没啥难的啊，提取表的每个元素，省去很多如  (setq i (1+ i)) ...(nth i list)  这样的代码了

...

[pcode=lisp,true]
(defun c:tt ()
  (setq pt1 (getpoint "\n111:"))
  (setq xpt1 (car pt1))
  (setq ypt1 (cadr pt1))
  (setq aa (list (list xpt1 ypt1) (list (+ xpt1 6) (+ ypt1 8)))) ; 创建起点
  (setq bb (list (list (+ xpt1 3) ypt1) (list (+ xpt1 15) (+ ypt1 12)))) ; 创建终点
  (setq i 0
        new ()
  )
  (repeat (length aa)
    (setq new (entmake (append
                         (list (cons 0 "LINE"))
                       ) (append
                           '(10)
                           (nth 0 aa)
                         ) (append
                             '(11)
                             (nth 0 bb)
                           )
              )
    )                                       ; 提取起点和终点并合表
    (setq i (1+ i))
  )
)
[/pcode]


上面是代码.我是一名绘图员!不是编程员!所以现在想实现的功能是参 数化绘图的功能!点是我在里面内定好的!上面是代码.但是错的很厉害!呵呵.害羞了

Lispboy

xtdwynij 发表于 2013-5-21 22:10
foreach这个只有一个变量也可以么?这个我就搞不大懂.mapcar函数的倒可以生成.只不过好像要二层循环的.我 ...

mapcar 的意思是 对表的每个元素去作为一个函数的参数运算求值后，在原来表中原位替代那个元素，代码更简洁了，省去很多CONS,APPEND的操作。

[pcode=lisp,true]
(mapcar '(lambda(x)(cons 1 x))(list 1 2 3 4))
[/pcode]

[pcode=lisp,true]
(foreach n (list 1 2 3 4)
   (setq el (append el (list (cons 1 n))))
)

[/pcode]

上面两个等价

Lispboy

xtdwynij 发表于 2013-5-21 22:36
上面是代码.我是一名绘图员!不是编程员!所以现在想实现的功能是参 数化绘图的功能!点是我在里面内定好的! ...

我们都是绘图员，都不是专业程序员。

xtdwynij

Lispboy 发表于 2013-5-21 22:28
foreach 没啥难的啊，提取表的每个元素，省去很多如  (setq i (1+ i)) ...(nth i list)  这样的代码了

...

我的菜鸟贴子师兄一直都有你在!呵呵!菜鸟问题太多了.都不大敢贴了!基础有点差!

XDSoft

xtdwynij 发表于 2013-5-21 22:36

你想要的，看看，不要X,Y分开，在加啊，减的，用MAPCAR

理解下

[pcode=lisp,true]
(defun c:tt ()
  (setq pt1 (getpoint "\n111:"))
  (setq pt2 (mapcar '+ pt1 (list 6 8 0.0))
        pt3 (mapcar '+ pt1 (list 15 12 0.0))
        pt4 (mapcar '+ pt1 (list 3 0.0 0.0))
        aa  (list pt1 pt2)
        bb  (list pt4 pt3)
   )
   (mapcar
    '(lambda (x)
       (entmake (list (cons 0 "line") (cons 10 (car x)) (cons 11 (cadr x))))
     )
     (list aa bb)
   )
)
[/pcode]

xtdwynij

ll_j 发表于 2013-5-21 22:52

多谢长老出手!下面是我自己搞的代码呵呵!相对比起来没脸见人了.不过也要贴上来.假如后来有人和我一样菜可学习.代码如下:
(defun c:tt ()
  (setq pt1 (getpoint "\n111:"))
  (setq xpt1 (car pt1))
  (setq ypt1 (cadr pt1))
  (setq aa (list (list xpt1 ypt1) (list (+ xpt1 6) (+ ypt1 8))));创建起点
  (setq bb (list (list (+ xpt1 3) ypt1) (list (+ xpt1 15) (+ ypt1 12))));创建终点
  (setq i 0 new ())
  (repeat (length aa)
    (setq new (entmake (list (cons 0 "LINE")  (append '(10) (nth i aa)) (append '(11) (nth i bb)))));提取起点和终点并合表
    (setq i (1+ i))
)
)