求定数等分复制图形

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（布满）

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 ...

我试了一下你修改后的，两点间定位阵列非常棒。

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