[求助]：求教连续标注命令dimcontinue的用法？

gjt1244

我要实现的效果如图所示：
代码如下：
(setq pt (getpoint "\n请选择第一点:"))        ;尺寸的起始点
(setq ptt (polar pt (* pi 1.5) 500))        ;尺寸线位置点
(setq kj_l (list 1000 2000 3000))
(command "_dimlinear" pt (polar pt 0 (nth 0 kj_l)) ptt)        ;先绘制第一条尺寸线
(setq obj (entlast))
(setq n 1)
  (command "_dimcontinue" obj (polar pt 0 (nth n kj_l)) (polar pt 0 (nth (+1 n) kj_l)) "")

虽然可以实现，但不智能；我要的是根据kj_l数值的不同也可以自动绘制，我知道关键是要更改 (command "_dimcontinue" obj (polar pt 0 (nth n kj_l)) (polar pt 0 (nth (+1 n) kj_l)) "")
但不知道怎样修改，请教大家！感谢了！

madeinchina

希望有高手解答

xyp1964

[php]
(defun c:test ()
  (setq pt (getpoint "\n请选择第一点:")) ;尺寸的起始点
  (setq ptt (polar pt (* pi 1.5) 1000))        ;尺寸线位置点
  (setq kj_l (list 1000 1500 1000 2000 3000 4000 5000))
  (command "_dimlinear" pt (polar pt 0 (nth 0 kj_l)) ptt) ;先绘制第一条尺寸线
  (setq        n  0
        nn (- (length kj_l) 1)
        pt (polar pt 0 (nth 0 kj_l))
  )
  (command "_dimcontinue")
  (repeat nn
    (setq pt1 (polar pt 0 (nth (setq n (1+ n)) kj_l))
          pt pt1)
   
    (command pt1)
  )
  (command"""")
)
[/php]

gjt1244

感谢长老的无私奉献，实在感激不尽；看了你的解答，使我掌握了处理这类问题的一般方法！
顺便再请教一个问题：
定义了一个将数值列表转换成累积数值列表的函数：（如下）
(defun L_TO_L (x / n len)
(setq n 0)
(setq len 0)
(repeat (length x)
  (setq kj_l (append kj_l (list (+ len (nth n x)))))
  (setq len (+ len (nth n x)))
  (setq n (1+ n))
  )
)

应用如下：
(setq kj_x '(1000 2000 3000))
(L_TO_L kj_x)

结果：
kj_l正是想要的结果(即(1000 3000 6000)，但函数运行的结果并不是直接返回我想要的结果，我怎样才可以使(L_TO_L kj_x)直接返回累积数值列表？

xyp1964

基本可行，简单修改2处：
[php]
(defun L_TO_L (x / n len kj_l);将局部变量kj_l清空
  (setq        n 0
        len 0
  )
  (repeat (length x)
    (setq kj_l (append kj_l (list (+ len (nth n x))))
          len  (+ len (nth n x))
          n    (1+ n)
    )
  )
  kj_l;此处新加，否则返回n的值为3
)
(setq kj_x '(1000 2000 3000))
(L_TO_L kj_x)
[/php]

gjt1244

又学到东西了！

GTJ116600

标注学习好帖，先留印，再学习