动态调整填充比例

958620832

(defun c:bl (/ *error*)
  (setvar "cmdecho" 0)
  (defun *error* (msg) ;将描述错误的字符串存入变量msg
    (redraw)
    (entmod (subst (cons 41 hp) (assoc 41 ent) ent))
    (setvar "cmdecho" 1)
    (princ "错误: ")(princ msg)) ;打印错误信息
  (setq obj (entsel) ent (entget (car obj)) p (cadr obj) pd t)
  (setq hp (cdr (assoc 41 ent)))
  (while pd
    (setq gr (grread t) mode (car gr) pt (cadr gr))
    (if (= mode 5) (progn
      (setq dis (distance p pt))
      (if (< dis 10) (setq dis 10))
      (if (> dis 500) (setq dis 500))
      (redraw)
      (grdraw p pt 1 -1)
      (entmod (subst (cons 41 dis) (assoc 41 ent) ent))))
    (if (= mode 3) (progn (redraw) (setq pd nil)))
    (if (or (= mode 2) (= mode 11)) (progn
      (redraw) (setq pd nil) (entmod (subst (cons 41 hp) (assoc 41 ent) ent)))))
  (setvar "cmdecho" 1)
  (princ))
源码没问题，为什么图中填充比例没有改变？

dz-2011

建议明总把此人踢出去！

emk

动态调整填充比例 论坛有源码！你都不说啥问题，是考验别人吗？这样提问.........

958620832

emk 发表于 2013-10-21 11:00
动态调整填充比例 论坛有源码！你都不说啥问题，是考验别人吗？这样提问.........

如果论坛上有的话，就提供个地址。
如果论坛真能找到源码，那你可不可以找下试试看？
你这样回答也太省事了，什么问题都可以回答论坛上有源码。
先找找看，再说论坛上有源码之类的话吧

ysq101

貌似二楼也没说错啊...你的代码有什么问题.要么你说清楚点.要么你来张图啊....这不是大师级的人物真的一时看不出来你的代码有什么问题啊

958620832

ysq101 发表于 2013-10-21 14:42
貌似二楼也没说错啊...你的代码有什么问题.要么你说清楚点.要么你来张图啊....这不是大师级的人物真的一时看 ...

你用一下，就会发现没有用，调整不了

emk

实在无语，先贴一个，看看x版的程序
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85005
自己不会搜索？请教人还这副德行！！！

spp_wall

这语气 也太牛气了吧  ！

958620832

老大，我要的根本就不是什么源码，难道看不出来吗？我要找的是，我的源码问题到底出在了什么地方！！！
到现在，竟然没有一个人看出来，看来，大家lisp都学到家了，都喜欢在网上找现成的。不会自己动脑子想想么？
问题虽然关闭了，但明经币不能白给，如果没有那个指出问题，就只能把明经币给说话说得最好听的那个了。
虽然明经币不多，只有一个，但对于有些人来说，却是雪中送炭。
在这里，就不要再说吃不到葡萄，就说葡萄酸之类的话了

dz-2011

明币看得这么重，这里的大师们谁会稀罕，搜索都不试,还这样一副德行,谁欠你的一定要说！        建议明总把此人踢出去！