请龙大哥帮忙看看

熊哥哥 · 发表于 2005-5-1 22:06:00

请(defun c:a3 (/ pl num)
(setq pl (getpoint "请输入插入点："))
(setq num (getint "请键入比例："))
(command "Insert" "hja3" pl num "" "" num "Insert" "bql" pl num "" "" num "explode" "last")) 怎样才能让"explode" "last"起作用我知道是单行字节太长造成的不知有什么变通的办法?

xyp1964 · 发表于 2005-5-1 23:23:00

(defun c:test (/ pl num)
(setq pl (getpoint "请输入插入点 : ")
num (getint "请键入比例<1> : ")
)
(if (= num nil)(setq num 1))
(command "Insert" "zbxt" pl num "" ""
"Insert" "tftl" pl num "" ""
"explode" "L" ""
)
(princ)
)

熊哥哥 · 发表于 2005-5-1 23:51:00

谢楼上的大哥

龙龙仔 · 发表于 2005-5-2 08:09:00

(defun C:A3 (/ PL NUM)
(setq PL (getpoint "请输入插入点："))
(setq NUM (getint "请键入比例："))
(command "Insert" "hja3" PL NUM "" "" NUM "Insert" "*bql" PL NUM "" ""
NUM)

无痕 · 发表于 2005-5-2 19:21:00

龙龙仔正解！插入时通过文件名加*就可以炸开

熊哥哥 · 发表于 2005-5-2 23:37:00

龙大哥为什么我在(getint " 请键入比例: ")中加入<1>在程序运行到“请键入比例：”时这几个字出现乱码但不影响程序的运行，而且程序运行结束这几个字又能正常显示了！！！

无痕 · 发表于 2005-5-3 13:37:00

软件对汉字（大字体）的支持问题

在提示汉字前加双数空格（即半角英文字或符号成双，不包括做为标识的字符如\n）

熊哥哥 · 发表于 2005-5-4 00:07:00

谢谢六楼七楼我按你们说的做了的确行

账号		自动登录	找回密码
密码			注册