明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 160|回复: 5

[提问] 请教一下组合代码

[复制链接]
发表于 8 小时前 | 显示全部楼层 |阅读模式
本帖最后由 惜惜2 于 2024-12-23 09:01 编辑

(defun c:Pq (/ b count ent ent-data ss)
(setq f1 "0")
  (command "LAYER")
  (command "off")
  (command "*")
  (command "y")
  (command "on")
  (command (EVAL F1))
  (command "")
  (c:HZQ-085)
   (setq user_input "A")
  (defun dcb (L)
    (cond
      ((null L) nil)
      ((atom L)(list L))
      ((atom (car L))(cons (car L) (dcb (cdr L))))
      ((append (dcb (car L))(dcb (cdr L))))
    )
  )
  (setq ss (ssget "X" '((0 . "DIMENSION")))) ; 选择所有标注
  (setq b nil)
  (if ss
    (progn
      (setq count (sslength ss))
      (repeat count
        (setq ent (ssname ss (setq count (1- count))))
        (setq ent-data (entget ent))
        (setq b (dcb ent-data))
        (foreach str b
          (if
            (or
              (= str "AcDbRadialDimension")
              (= str "AcDbDiametricDimension")
            )
            (entdel ent)
          )
        )
      )
    )
  )
(command "layer")
  (command "on")
  (command "*")
  (command "")
  (command "LAYER")
  (command "THAW")
  (command "*")
  (command "")
  (command "LAYER")
  (command "U")
  (command "*")
  (command "")
  (princ)
)


  (c:HZQ-085)
   (setq user_input "A") 前面这个命令是第三方插件自带的命令,执行后让用户选着一个对象,然后输入栏提示指定基点或 [A(左下角)/B(左上角)/C(右下角)/(右上角)]如何默认执行A(左下角),我希望默认一个值即可,比如A,不再需要用户手动键入,需要怎么实现,谢谢

回复

使用道具 举报

发表于 6 小时前 | 显示全部楼层
想多了属于是
回复 支持 反对

使用道具 举报

发表于 6 小时前 | 显示全部楼层
左上、左下、右上、右下。我猜这是图元包围框的4个角点。
回复 支持 反对

使用道具 举报

 楼主| 发表于 5 小时前 | 显示全部楼层

好吧 谢谢
回复 支持 反对

使用道具 举报

发表于 5 小时前 | 显示全部楼层
要么改这个命令里的代码
  1. (c:HZQ-085)

要么处理变量
  1. (if (or (= user_input "") (null user_input))
  2.                 (setq user_input "A")
  3.         )
回复 支持 反对

使用道具 举报

发表于 4 小时前 | 显示全部楼层
把c:HZQ-085升格为命令,然后用vla-sendcommand模拟默认输入A
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-23 17:20 , Processed in 0.278459 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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