请帮看下问题出在哪，怎么改

cds15980954301

请大家帮看下，以下函数哪里有问题，时灵时不灵的-
关闭捕捉的情况下
问题1、有时标注会没放到位
问题2、有时会提示选择圆标注
(DEFUN C:qwe( / sel n sell  pc p10 p11)
(setq sel (ssget ":N" '((0 . "CIRCLE"))));选择圆
  (if(not sel)(exit));如果没有就退出
  (setq sell nil)
  (setq n -1)
  (repeat (sslength sel);
              (setq n (+ 1 n))
              (setq sell (cons (list  (assoc 40(entget(ssname sel n))) (ssname sel n)) sell)))
  (setq aa (guibing  sell))
  (foreach x aa (zhibiao x))
)


(defun zhibiao ( lis /   pc p10 p11)
  (setq pc(cdr(assoc 10 (entget(cadr lis)))));圆中心
  (setq p10(polar pc pi (cdaar lis)));圆上点
  (setq p11(polar pc (*  0.15 pi)(* 3 (cdaar lis))));标注放置点
  (command "DIMDIAMETER" p10 "T" (strcat (rtos(cdar lis)) "-" "<>") p11)
)
;程序guibing来源 ll_j   http://bbs.mjtd.com/forum.php?mod=viewthread&tid=107370&highlight=%CD%BC%D4%AA&_dsign=081f1d0f
(defun guibing (lst / tmp)
  (if lst
    (cons  (cons (cons (caar lst)  (length (setq tmp (vl-remove-if-not  '(lambda (x)(equal (car x) (caar lst)))  lst))))
                         (apply 'append (mapcar 'cdr tmp)) )
               (guibing (vl-remove-if  '(lambda (x)(equal (car x) (caar lst)) )  lst))))
)

Bao_lai

(command "DIMDIAMETER" p10 "T" (strcat (rtos(cdar lis)) "-" "<>") p11)
目测应该是commad的捕捉问题。

cds15980954301

Bao_lai 发表于 2024-5-24 22:28
(command "DIMDIAMETER" p10 "T" (strcat (rtos(cdar lis)) "-" "") p11)
目测应该是commad的捕捉问题。

有试着把捕捉关掉，但还是一样

start4444

改一下这句 (command "DIMDIAMETER" "non"  (list (cadr lis) p10) "T" (strcat (rtos(cdar lis)) "-" "<>") "non"  p11)

cds15980954301

start4444 发表于 2024-5-25 01:14
改一下这句 (command "DIMDIAMETER" "non"  (list (cadr lis) p10) "T" (strcat (rtos(cdar lis)) "-" "")  ...

谢谢，第二个问题解决了，但第一个问题还在