明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1325|回复: 4

运行错误: no function definition: CMDLA0

[复制链接]
发表于 2017-10-21 16:51 | 显示全部楼层 |阅读模式
本帖最后由 ccc230 于 2017-10-21 17:02 编辑

错误: no function definition: CMDLA0 这段哪里有问题,求高手帮忙修改下 最好是指定一个字符,册这个字符前面的字和这个字符后面的字
(defun c:scqhz ()                        ;erase-pre-suf
  (CMDLA0)
  (if (null mode)
    (setq mode "1")
  )
  (setq        mode (UKWORD 7 "1 2" "\n文本删除 : 1-前缀/2-后缀" mode)
        ss   (ssget '((0 . "TEXT")))
        i    -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq ent (entget s1)
          tx  (dxf 1 ent)
          len (strlen tx)
    )
    (cond ((= mode "1") (main1))
          ((= mode "2") (main2))
    )
  )
  (CMDLA1)
)
(defun main1 ()
  (if (= len 2)
    (progn
      (setq tx1 (substr tx 1 1))
      (if (<= (ASCII tx1) 160)
        (progn
          (setq tx1 (substr tx 2))
          (sub_upd s1 1 tx1)
        )
      )
    )
  )
  (if (> len 2)
    (progn
      (setq tx1 (substr tx 1 1))
      (if (<= (ASCII tx1) 160)
        (setq tx1 (substr tx 2))
        (setq tx1 (substr tx 3))
      )
      (sub_upd s1 1 tx1)
    )
  )
)
(defun main2 ()
  (if (= len 2)
    (progn
      (setq tx1 (substr tx len 1))
      (if (<= (ASCII tx1) 160)
        (progn
          (setq tx1 (substr tx 1 (- len 1)))
          (sub_upd s1 1 tx1)
        )
      )
    )
  )
  (if (> len 2)
    (progn
      (setq tx1 (substr tx len 1))
      (if (<= (ASCII tx1) 160)
        (setq tx1 (substr tx 1 (- len 1)))
        (setq tx1 (substr tx 1 (- len 2)))
      )
      (sub_upd s1 1 tx1)
    )
  )
)
(pxyp "scqhz  (删除前后缀)")
(princ)[/FONT]

发表于 2017-10-21 21:05 | 显示全部楼层
(CMDLA0) / (CMDLA1)  / sub_upd
乃自定义函数,请搜寻后补上
发表于 2017-10-22 21:46 | 显示全部楼层
貌似有点难
发表于 2017-10-22 22:32 来自手机 | 显示全部楼层
似乎是院长的代码
 楼主| 发表于 2017-10-25 12:37 | 显示全部楼层
Andyhon 发表于 2017-10-21 21:05
(CMDLA0) / (CMDLA1)  / sub_upd
乃自定义函数,请搜寻后补上

帮我改一下发楼下,我不会改
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 05:17 , Processed in 0.158294 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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