明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 840|回复: 4

[提问] 请帮看下问题出在哪,怎么改

[复制链接]
发表于 2024-5-24 21:58:13 | 显示全部楼层 |阅读模式
本帖最后由 cds15980954301 于 2024-5-24 22:43 编辑

请大家帮看下,以下函数哪里有问题,时灵时不灵的-
关闭捕捉的情况下
问题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))))
)


"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2024-5-24 22:28:50 | 显示全部楼层
(command "DIMDIAMETER" p10 "T" (strcat (rtos(cdar lis)) "-" "<>") p11)
目测应该是commad的捕捉问题。
 楼主| 发表于 2024-5-24 22:34:44 | 显示全部楼层
Bao_lai 发表于 2024-5-24 22:28
(command "DIMDIAMETER" p10 "T" (strcat (rtos(cdar lis)) "-" "") p11)
目测应该是commad的捕捉问题。

有试着把捕捉关掉,但还是一样
发表于 2024-5-25 01:14:49 | 显示全部楼层
改一下这句 (command "DIMDIAMETER" "non"  (list (cadr lis) p10) "T" (strcat (rtos(cdar lis)) "-" "<>") "non"  p11)
 楼主| 发表于 2024-5-25 11:18:37 | 显示全部楼层
start4444 发表于 2024-5-25 01:14
改一下这句 (command "DIMDIAMETER" "non"  (list (cadr lis) p10) "T" (strcat (rtos(cdar lis)) "-" "")  ...

谢谢,第二个问题解决了,但第一个问题还在
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-25 17:47 , Processed in 0.182183 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表