设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：帮助看看这个LISP错在哪？
返回列表 发新帖
查看: 831|回复: 8

[求助] [求助]：帮助看看这个LISP错在哪？

[复制链接]
xbx7920
发表于 2003-11-29 11:13:15 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
  2. defun c:chop (/ oldtxt oldnum ssdata ent entxt height ennum  kk m n newtxt
  3.                newcontext ssdata pt)
  4.   (princ "断开单行文本......")
  5.   (setq old (getvar "cmdecho"))
  6.   (setvar "cmdecho" 0)
  7.   (setq ssdata (entget(car(entsel))))
  8.   (setq oldtxt (getstring t "\nFrom what word:"))
  9.   (setq oldnum (strlen oldtxt))
  10.   (setq ent (assoc 1 ssdata))
  11.   (setq entxt (cdr ent))
  12.   (setq height (cdr(assoc 40 ssdata)))
  13.   (setq ennum (strlen entxt))
  14.   (setq p 1)
  15.   (while (<= p ennum)
  16.     (setq kk (substr entxt p oldnum))
  17.     (if (= kk oldtxt)
  18.       (progn
  19.         (setq m (- p 1))
  20.         (setq n (- ennum m))
  21.       )
  22.     )
  23.     (setq p (1+ p))
  24.   )
  25.   (setq newtxt (substr entxt 1 m))
  26.   (setq newcontext (substr entxt p n))
  27.   (setq ssdata (subst (cons 1 newtxt) ent ssdata))
  28.   (entmod ssdata)
  29.   (setq pt (getpoint "\nplease enter one point:"))
  30.   (command ".dtext" pt height "" newcontext "")
  31.   (setvar "cmdecho" old)
  32.   (princ)
  33. )

原意是想以输入的字符为界断开单行文本，而且分为两行，
不知道哪里出问题。谢谢先。
setq, ssdata, entxt

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

zhynt
发表于 2003-11-29 11:51:47 | 显示全部楼层
提问题要吧你的编程思路，程序的功能，想要得到的结果，最后得到的结果写上来，这样有有助于问题的解决，也能对那些初学者予帮助。
如果有相同的字符怎么办？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2003-11-29 11:58:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
不能处理中文？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Gxiaofeng
发表于 2003-11-30 21:19:38 | 显示全部楼层
对呀,,如果又有中文又有字母怎么办?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-11-30 23:12:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
看晓东工具箱里的lisp,应该就可以理解了.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-12-1 10:14:27 | 显示全部楼层

  3. ;;由于文字性质有很多...
  4. ;;对齐点就更麻烦.....没有那么简单的...好好再想想吧!
  5. (defun C:CHOP (/        OLDTXT         OLDNUM          SSDATA   ENT            ENTXT
  6.                HEIGHT        ENNUM         KK          M           N            NEWTXT
  7.                NEWCONTEXT         SSDATA          PT
  8.               )
  9.   (princ "断开单行文本......")
  10.   (setq OLD (getvar "cmdecho"))
  11.   (setvar "cmdecho" 1)
  12.   (setq SSDATA (entget (car (entsel))))
  13.   (setq OLDTXT (getstring t "\nFrom what word: "))
  14.   (setq OLDNUM (strlen OLDTXT))
  15.   (setq ENT (assoc 1 SSDATA))
  16.   (setq ENTXT (cdr ENT))
  17.   (setq HEIGHT (cdr (assoc 40 SSDATA)))
  18.   (setq ROT (cdr (assoc 50 SSDATA)))
  19.   (setq ENNUM (strlen ENTXT))
  20.   (setq P 1)
  21.   (while (or (null M) (<= P ENNUM))
  22.     (setq KK (substr ENTXT P OLDNUM))
  23.     (if        (= KK OLDTXT)
  24.       (setq M (- P 1))
  25.     )
  26.     (setq P (1+ P))
  27.   )
  28.   (if M
  29.     (progn
  30.       (setq NEWTXT (substr ENTXT 1 M))
  31.       (setq NEWCONTEXT (substr ENTXT (+ M 1)))
  32.       (setq SSDATA (subst (cons 1 NEWTXT) ENT SSDATA))
  33.       (entmod SSDATA)
  34.       (setq PT (getpoint "\nplease enter one point: "))
  35.       (command "_.text" PT HEIGHT (/ (* ROT 180) pi) NEWCONTEXT)
  36.     )
  37.   )
  38.   (setvar "cmdecho" OLD)
  39.   (princ)
  40. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xbx7920
 楼主| 发表于 2003-12-6 13:11:49 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 zhynt 发布
[B]提问题要吧你的编程思路，程序的功能，想要得到的结果，最后得到的结果写上来，这样有有助于问题的解决，也能对那些初学者予帮助。
如果有相同的字符怎么办？ [/B]

如果有相同的字符怎么办？ [/B][/QUOTE]
有相同的字符我也不怕,因为我在"FROM WHAT WORD:"后面可以输入两个甚至三个或者更多字符!有中文也不怕.十分感谢6楼楼主LUCAS提供的帮助!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-12-6 15:53:29 | 显示全部楼层
无非是把一个字串按另一字串拆分 。再写出来。
我前面贴过的.

  3. ;相当xdrx_string_tok
  4. ;(str-cut "1234534""67" t)-->("1234534")
  5. ;(str-cut "1234534""3" t)-->("12" "45" "4")
  6. ;(str-cut "1234534""3" nil)-->("12" "3" "45" "3" "4")
  7. ;(str-cut "ab  12  3 4534" " " t)-->("ab" "12" "3" "4534")


  10. (defun str-cut (fa-str str how / len li no)
  11. (setq li nil len(strlen str) )
  12. (while(setq no(vl-string-search str fa-str))
  13.        (if(/= no 0)
  14.         (setq li(cons(substr fa-str 1 no)li))
  15.        )
  16.        (setq li(cons (substr fa-str(1+ no) len) li)
  17.              fa-str(substr fa-str (+ no len 1))
  18.         )
  19.   )
  20. (if(/= "" fa-str)(setq li(cons fa-str li)))
  21. (if how
  22.     (vl-remove str (reverse li))
  23.     (reverse li)
  24.   )
  25. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xbx7920
 楼主| 发表于 2003-12-6 16:01:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
老大,你这个LISP怎样用啊?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-26 20:52 , Processed in 0.200468 second(s), 47 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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