ccc230 发表于 2021-8-15 19:21:42

本帖最后由 ccc230 于 2021-8-15 19:27 编辑

ZZXXQQ 发表于 2021-8-12 13:56
;两点间定数阵列
(defun c:cn ( / en xfx pt1 pt2 zljl sl)
(setvar "CMDECHO" 0)

版主又出现这个
错误: 参数类型错误: numberp: T



Myday 发表于 2021-8-15 20:52:39

（repeat s1    的s1应该是    sl

k1nger 发表于 2021-8-16 14:08:23

measure这命令不香么

匆匆肥马 发表于 2021-8-16 17:45:01

老铁，你试着用ACAD2014以上的版本。copy里面有个选项：A 然后可以F（布满）:lol

zhufeng1004 发表于 2022-10-1 23:35:17

(defun c:cm ( / en xfx pt1 pt2 zljl sl)(setvar "CMDECHO" 0)(princ "\n选择对象: ")(setq ss (ssget))(setq pt1 (getpoint "\n指定第一点:"))(setq pt2 (getpoint pt1 "\n指定第二点:"))(setq ang (angle pt1 pt2))(setq n (1- (getint "输入个数<2>:")))(setq zljl (* n (/ (distance pt1 pt2) n))) (setq i zljl)(repeat n    (command "copy" ss "" pt1 (polar pt1 ang i))    (setq i (+ i zljl)))(setvar "CMDECHO" 1)(princ))稍微修改了，很适合自己用的小程序

huisguiji 发表于 2023-4-11 15:06:18

xiang19751218 发表于 2017-12-18 10:50


你好，选择横和竖怎么改成也带默认的，像输入层数一样默认是2层

hbxymx 发表于 2024-10-21 09:06:42

zhufeng1004 发表于 2022-10-1 23:35
(defun c:cm ( / en xfx pt1 pt2 zljl sl)(setvar "CMDECHO" 0)(princ "\n选择对象: ")(setq ss (ssg ...

我试了一下你修改后的，两点间定位阵列非常棒。
页: 1 [2]
查看完整版本: 求定数等分复制图形