admin 发表于 2024-7-9 19:40:29

;如果是裁剪块，则生成边界备用
      (if (setq el (IsXClip (car blk)))
      (progn
          (setq IsXC T)
          (command "xclip" (car blk) "" "P") ;生成裁剪边界
          (setq outline (entlast)) ;保存边界信息
          (entdel outline) ;先删除，回头再恢复，防止干扰
      )
      )
页: [1]
查看完整版本: 判断图元是否为剪裁块