zxjing 发表于 2011-2-20 10:20:29

本帖最后由 zxjing 于 2011-2-20 10:21 编辑

回复 Gu_xl 的帖子
,奥~
那可能就是版本的问题了，我单位是CAD09的，回头单位试一下。08可以，09就应该也没问题了，谢G版。

zxjing 发表于 2011-2-20 10:24:43

回复 gzxl 的帖子

gzxl ，谢谢你的回复，G版的程序应该是没有问题的，在我的04上确实不行，可能是我CAD版本的问题，好在单位常用的是09，周一上班的时候我再拿09试试

Gu_xl 发表于 2011-2-20 10:36:49

回复 zxjing 的帖子

我试了，04也没问题！在04里，如果填充是不关联边界的，就不行了！08没问题！

zxjing 发表于 2011-2-20 10:52:00

回复 Gu_xl 的帖子

，正解，问题就出在这里了，太谢谢G版了，以后制图的时候还是应该注意下尽量保留关联

ZZXXQQ 发表于 2011-2-20 20:05:04

三楼已改，在2004中调试通过。再试试。

gzxl 发表于 2011-2-20 22:35:42

Z版的程序也测试通过

比n还多 发表于 2019-4-14 16:30:50

这个问题是啥原因？我也遇到同样问题(defun DCL_TC ()
(setq sst(entget(car(entsel))))
(setq BL1 (cdr(assoc 41 sst)))
(vl-file-delete(strcat (getvar "TEMPPREFIX") "TMP_BL.DCL"))
(setq FA2(open (strcat (getvar "TEMPPREFIX") "TMP_BL.DCL") "a"))
(foreach stream '( "TCBLTZ:dialog{\n"
            "label= \"填充比例调整:\";\n"
                                                "initial_focus=\"edit_p\";\n"       
            ":edit_box{" "label= \"当前填充比例:\"; key=\"YBL\"; edit_width=8;}\n"
            ":edit_box{" "label= \"新的填充比例:\"; key=\"edit_p\"; edit_width=8; allow_accept=true;}\n"
            "ok_cancel;\n"                                               
            "}\n"      
            )
(princ stream FA2))
(close FA2)
(setq DCL_T (LOAD_DIALOG (strcat (getvar "TEMPPREFIX") "TMP_BL.DCL")))
(new_dialog "TCBLTZ" DCL_T)
        (set_tile "YBL" (rtos BL1 2 3))
        (action_tile "accept" "(BLXG) (done_dialog 1)")
        (start_dialog))
(defun BLXG ()
(setq a (atof (get_tile "edit_p")))
(setq sst (subst (cons 41 a) (assoc 41 sst) sst))
(entmod sst))
页: 1 [2]
查看完整版本: 图案填充的比例修改了，但图的显示并未修改